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INTRODUCTION 


Here  in  your  hands  you  hold  a  map  to  one  of  the  most 
fascinating  journeys  you  will  ever  take.  Even  if  you  have  never 
touched  a  computer  before  you  bought  your  ZX  Spectrum,  we 
hope  to  share  with  you  —  step  by  simple  step  —  the  secrets  of 
computer  programming. 

It’s  not  going  to  be  difficult.  We’ve  deliberately  included  a 
number  of  major  games  in  the  book,  so  after  you’ve  entered 
and  run  the  games,  you’ll  discover  you’ve  learned  to  program 
almost  while  you  were  not  looking.  It’s  going  to  be  painless, 
and  it’s  going  to  be  fun. 

The  whole  process  is  greatly  simplified  by  the  fact  that  you’re 
learning  on  a  Spectrum,  Representing  the  leading  edge  of 
computer  technology,  the  Spectrum  is  a  computer  that  was 
designed  to  b e  friendly,  and  easy  and  rewarding  to  use.  You’ve 
picked  the  best  computer,  and  this  book  is  the  most  direct  route 
to  programming  expertise. 

Come  on  and  join  us  now,  as  together  we  discover  how  you  can 
make  the  most  of  your  ZX  Spectrum. 

Tim  Hartnell 


London,  July,  1983 
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DISCOVERING  THE 
KEYBOARD 


You’ve  just  bought  a  great  computer,  and  in  this  book  we’re 
going  to  show  you  how  to  get  the  most  out  of  it.  Don’t  worry  if 
this  is  the  very  first  computer  you  have  ever  owned.  We’re 
going  to  take  things  slowly,  and  in  small  steps,  so  you’ll  have  no 
trouble  in  keeping  up  with  us. 


READ  THE  BOOK  WITH  YOUR  COMPUTER 
TURNED  ON 

It  is  vital  that  you  have  the  computer  turned  on  at  all  times  when 
reading  this  book  (or  at  least  the  first  time  you  work  through  it). 
This  is  an  ‘action  book’,  and  unlike  a  novel,  it  is  not  designed 
simply  to  be  read.  This  book  is  like  a  book  on  how  to  drive.  You 
could  never  learn  about  changing  gears,  and  how  it  feels  to 
handle  an  auto  in  traffic,  without  actually  going  out  and  taking 
command  of  a  vehicle.  So  it  is  with  your  computer  and  this 
book.  Try  out  each  new  command  and  function  when  it  is 
explained  to  you,  experiment  with  the  games  and  other 
programs,  and  you’ll  find  you’re  learning  to  program  without 
even  trying. 


THE  KEYBOARD 

First  we  have  to  find  our  way  around  the  keyboard.  It  looks 
pretty  frightening  the  first  time  you  look  at  it,  but  once  you’ve 
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used  it  for  an  hour  or  so,  you’ll  be  surprised  at  how  familiar  it 
will  become  to  you. 

THE  SHIFT  KEYS 

The  two  most  important  keys  on  the  keyboard  are  located  in  the 
bottom  left  hand  corner  (marked  CAPS  SHIFT)  and  second 
from  the  right  in  the  bottom  right  hand  corner  (SYMBOL 
SHIFT). 

Find  those  two  keys. 

Now  connect  up  your  computer  as  explained  in  the  manual, 
and  get  the  copyright  sign  and  statement  at  the  bottom  of  the 
screen.  Press  any  of  the  keys  which  have  letters  on  them.  You’ll 
notice  that  the  first  time  you  press  a  key,  you  get  the  word 
written  in  white  on  the  key.  This  is  called  a  key  word. 

KEY  WORDS 

The  key  words  are  the  most  important  words  in  the 
programming  language  BASIC  which  your  computer  uses.  As 
you  learn  to  program,  you’ll  become  familiar  with  all  of  them. 
But  you  may  be  surprised  to  learn  that  you  already  know,  more 
or  less,  what  many  of  them  mean.  For  example,  on  the  P  key 
(second  row  from  the  top,  last  key  on  the  right)  is  the  word 
PRINT,  This  is  used  when  you  want,  believe  it  or  not,  to  print 
something  on  the  screen.  On  the  R  key  is  the  key  word  RUN. 
Find  it  now.  RUN  is  used  when  you  have  a  program  in  your 
computer  and  you  want  it  to  get  it  going,  to  run  it.  The 
command  RUN  does  this  for  you. 

tyitt  i?nri? 

By  now  the  bottom  of  the  screen  may  be  looking  pretty 
crowded,  and  something  like  a  disaster  area.  If  you  look  to  the 
top  right  hand  corner  of  the  keyboard  you’ll  see  a  key  marked 
(reading  down  from  the  top)  BLACK,  DELETE,  0  and  so  on. 
The  important  word  for  now  is  the  word  DELETE.  If  you  hold 
down  the  CAPS  SHIFT  (remember,  it  is  in  the  bottom  left  hand 
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comer  of  the  keyboard)  and  then  press  the  DELETE  key,  and 
continue  to  hold  it  down ,  you’ll  find  it  will  move  across  the 
printed  material  to  the  left,  erasing  it  as  it  goes. 

Another  way  of  clearing  up  ‘rubbish’  like  this  from  the  bottom 
of  the  screen  is  to  turn  off  the  power  for  a  short  while,  but  as 
this  causes  the  computer  to  forget  the  program  which  is  in  the 
computer,  this  is  not  advised. 


So  you  know  the  key  words  are  available  by  pressing  the  letter 
keys,  and  getting  the  white  words  written  on  them.  Generally, 
the  key  word  will  appear  when  you  first  press  a  key,  or  after  a 
line  number  (and  we’ll  be  looking  at  line  numbers  and  how  to 
use  them  in  programs  in  a  moment)  or  after  the  word  THEN 
(and  we’ll  also  be  looking  at  that  word  shortly). 

SYMBOL  SHIFT 

If  you  hold  down  SYMBOL  SHIFT  (the  key  with  the  red 
writing  in  the  bottom  right  hand  corner)  and  continue  to  hold  it 
down  as  you  press  another  key,  you’ll  find  you  get  the  red 
words  or  funny-looking  symbols  which  are  written  on  the  keys 
appearing  at  the  bottom  of  the  screen.  For  example,  if  you 
press  the  F  key,  instead  of  the  key  word  FOR  (the  word  written 
in  the  white  on  that  key),  you’ll  get  the  red  word  TO.  In  the 
same  way,  pressing  the  G  key  while  holding  down  the  red 
SYMBOL  SHIFT  will  get  you  the  word  THEN. 


Try  pressing  a  number  of  different  keys.  You’ll  see,  in  each 
case,  that  you  get  the  word  or  symbol  printed  in  red  appearing 
at  the  bottom  of  the  screen.  Try  the  following,  pressing  the  key 
in  the  column  below  on  the  left,  to  make  sure  you  get  the 
symbol  to  the  right: 


Press  this: 

A 

H 

I 

D 

S 


To  get  this: 

STOP 

AND 

AT 

STEP 

NOT 
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As  well  as  the  words,  you  can  get  symbols  such  as  ?  (on  the  C 
key),  *(on  the  B  key)  and  ;  (on  the  O  key). 


There  is  still  more.  Don’t  worry  if  this  seems  confusing.  You’ll 
be  surprised  at  how  quickly  it  will  fall  into  place  within  half  an 
hour  or  so  of  playing  at  the  keyboard. 


FUNCTIONS  —  GREEN 

The  functions,  plus  a  few  additional  commands,  are  written  in 
green  above  the  keys.  You  get  these  words  by  pressing  the 
CAPS  SHIFT  and  the  SYMBOL  SHIFT  at  the  same  time,  then 
taking  your  fingers  off  those  keys,  and  pressing  the  key  which 
has  the  word  you  want  above  it.  For  example,  if  you  pressed 
both  shift  keys  at  once,  removed  your  fingers,  and  touched  T 
key,  the  word  RND  would  appear.  Do  it  again,  then  touch  the 
A  key,  and  you’ll  get  READ.  The  G  key  will  give  you  the  odd 
word  ABS  and  the  O  key  will  produce  the  word  TAB.  All  these 
foreign-sounding  words  —  like  ABS,  TAB,  USR  (above  the  L 
key)  and  STR$  (above  the  Y)  —  will  eventually  become  as 
familiar  to  you  as  the  words  you  now  use  in  everyday  speech. 


FURTHER  FUNCTIONS  —  RED 

There  are  additional  functions  available  on  the  keyboard,  and 
these  are  printed  in  red  below  the  keys.  For  example,  MERGE 
is  below  the  T  key,  OVER  is  below  N  and  INK  is  below  the  X. 
You  get  these  by  pressing  both  keys  at  once,  much  as  you  did  to 
get  the  green  functions.  However,  instead  of  taking  both 
fingers  off  the  shift  keys  before  you  press  the  letter  key,  you 
continue  to  hold  down  the  red  SYMBOL  SHIFT,  while 
pressing  the  required  key. 


Try  it  now.  Press  down  both  shift  keys  at  once,  release  the  white 
CAPS  SHIFT  on  the  left,  while  continuing  to  hold  down  the 
red  SYMBOL  SHIFT,  and  then  press  your  chosen  key: 
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Press  this: 

H 

B 

I 

Q 

THE  CURSOR 


To  get  this: 


CIRCLE 

BEEP 

BRIGHT 

IN 

ASN 


Each  time  you  press  the  shift  keys,  or  some  combination  of 
them,  you  change  the  m ode  the  computer  is  in.  You  do  not  need 
to  understand  or  remember  this  in  order  to  be  able  to  program 
your  computer,  but  it  is  useful  to  know  if  you  find  that  you’re 
getting  confused  as  to  what  the  computer  is  going  to  do  next,  or 
what  it  expects  from  you. 


When  you  first  turn  the  computer  on,  you’ll  see  this  message: 
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This  message  only  appears  when  the  computer  is  absolutely 
‘empty’,  that  is,  when  it  does  not  contain  any  program  entered 
by  you.  You  get  the  message  when  you  first  turn  the  computer 
on,  or  by  pressing  the  A  key  in  the  key  word  mode  and  getting 
the  word  NEW,  then  pressing  ENTER.  NEW  returns  the 
computer  back  to  the  state  it  is  in  when  you  turn  it  on  for  the 
very  first  time.  (NEW  is  a  brutal  command,  compelling  the 
computer  to  forget  j  ust  about  everything  you’ve  typed  into  it  in 
the  current  session,  so  be  very  careful  about  pressing  the  A  key: 
when  in  the  key  word  mode). 

Anyway,  press  the  ENTER  key  (that’s  the  one  at  the  extreme 
right  hand  end  of  the  second  row  of  keys  from  the  bottom)  and 
the  message  will  disappear,  to  be  replaced  with  a  capital  K, 
which  is  alternating  between  black  and  white.  This  K  is  the 
cursor  and  you’ll  find  cursors  of  one  sort  or  another  will  follow 
you  around  all  your  computing  days.  Now,  the  cursor  is  the 
clue  as  to  what  mode  your  computer  is  in,  and  the  mode  it  is  in 
tells  you  how  it  will  interpret  the  very  next  key  press  you  enter. 
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The  K  means  key  word.  You’ll  recall  that  the  key  words  are  the 
words  in  white  written  on  the  keys.  Press  any  of  the  keys 
bearing  letters  of  the  alphabet  when  the  computer  is  in  the  key 
word  mode — that  is ,  displaying  a  K  cursor — and  you’ll  get  the 
key  word  on  that  letter. 

Make  sure  your  computer  is  in  the  key  word  mode,  turning  off 
the  power  for  a  second  or  two,  then  turning  it  on,  if  you  need  to 
in  order  to  do  this.  When  you’ve  got  a  flashing  K  cursor,  press 
the  P  key  so  the  word  PRINT  appears. 

Now  look  at  the  cursor  which  has  moved  from  the  bottom  left 
hand  corner  of  the  screen  across  past  the  word  PRINT.  What 
you’ll  see  is  a  flashing  L  cursor,  like  this: 

m 

The  L  stands  for  the  word  letter  and  when  you  press  a  letter,  or 
number,  key  in  this  mode,  you’ll  get  the  letter  or  number  of  the 
key.  Press  the  A  key  and  you’ll  see  that  instead  of  the  dangerous 
word  NEW  which  we  warned  you  about  a  few  seconds  ago,  we 
now  have  the  letter  a  appearing. 


Use  DELETE  (remember,  hold  down  the  white  CAPS  SHIFT 
key,  then  press  the  0  until  the  words  at  the  bottom  of  the  screen 
lie  wiped  out)  to  clear  the  PRINT  a  from  the  bottom  of  the 
screen.  You’ll  be  back  in  the  K  (key  word)  mode.  Press  P  again 
to  get  the  word  PRINT  followed  by  the  L  cursor,  then  hold 
down  the  CAPS  SHIFT  and  press  the  2  keys,  which  has  the 
words  CAPS  LOCK  written  above  it  in  white.  You  get  the 
words  in  white  (such  as  EDIT,  TRUE  VIDEO  and 
GRAPHICS)  by  holding  down  the  CAPS  SHIFT  key,  and  then 
pressing  the  relevant  key  on  the  top  row.  This,  after  all,  is  the 
way  you  get  DELETE,  isn’t  it? 


When  you  press  the  2  /CAPS  LOCK  key,  while  holding  down 
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the  CAPS  SHIFT  key,  you’ll  see  the  L  cursor  turns  into  a  C, 
like  this: 


The  C  stands  for  capital  letters.  Now  you  are  in  the  C  mode, 
press  the  A  key  again,  and  instead  of  getting  PRINT  a  you’ll  get 
PRINT  A.  You  can  stay  in  CAPS  LOCK  mode  for  as  long  as 
you  like.  Although  it  changes  the  L  cursor  to  a  C,  and  ensures 
that  all  the  letters  you  type  will  come  out  as  capitals  rather  than 
small  letters,  the  C  mode  does  not  affect  the  other  modes, 
which  we  will  look  at  now. 


There  are  two  other  modes,  extended  and  graphics. 


EXTENDED  MODE 

Press  both  shift  keys  at  once,  and  you’ll  see  the  cursor  changes 
into  an  E,  as  follows: 


This  means  the  machine  is  in  extended  mode,  the  mode  in  which 
it  accepts  the  green  words  above  the  keys,  and  the  red  words  (If 
you  continue  to  hold  down  red  SYMBOL  SHIFT  key). 


GRAPHICS  MODE 

The  graphics  on  your  computer  are  one  of  its  outstanding 
features,  as  you’ll  be  demonstrating  for  yourself  in  due  course. 
At  this  point,  however,  all  we’ll  do  is  find  the  graphics  mode, 
which  you’ll  need  for  using  all  of  the  tremendous  possibilities 
of  your  computer.  Holding  down  theCAPS  SHIFT,  press  the  9 


8  GETTING  STARTED  ON  YOUR  ZX  SPECTRUM 

key,  and  the  cursor  will  turn  into  a  G,  like  this: 


You  can  check  you’re  in  the  graphics  mode  by  pressing  any  of 
the  keys  from  1  to  8,  while  pressing  down  the  CAPS  SHIFT 
key,  and  while  leaving  it  alone.  Instead  of  getting  the  numbers 
of  the  symbols  shown  in  the  red  on  these  keys,  you’ll  get  the 
little  black  and  white  square  symbols: 

1m  J  -  P  *•«  «  m 

«£&  3MF  WE  m  Sm  9  mm 

•  ■  ■  >  S  V  ^ 


You  get  out  of  the  graphics  mode  by  holding  down  CAPS 
SHIFT  and  pressing  the  9  key  again,  so  the  cursor  changes  back 
to  an  L  or  a  C. 

That  takes  care  of  our  introduction  to  the  keyboard.  You’ll 
find  that  it  is  a  lot  simpler  when  you’re  programming  the 
computer  to  know  which  mode  to  choose,  and  which  one 
you’re  in,  than  might  be  apparent  from  this  explanation.  Stick 
with  it,  and  you’ll  see. 


CHAPTER  TWO 
PUTTING  THINGS  ON 

THE  SCREEN 


We  pointed  out  in  chapter  one,  when  talking  about  the 
keyboard,  that  the  shift  keys  (CAPS  SHIFT  and  SYMBOL 
SHIFT)  were  the  two  most  important  ones  on  the  keyboard. 
We’re  now  going  to  introduce  the  third  most  important  one, 
ENTER.  Whenever  you’re  typing  in  at  the  bottom  of  the  screen 
(in  the  work  space)  the  computer  will  wait  until  you  press 
ENTER  before  acting  on  the  material  you’ve  entered.  If  you 
have  written  a  program  line,  the  computer  will  ignore  that  line, 
and  it  will  sit  at  the  bottom  of  the  screen,  with  the  cursor 
flashing  patiently  beside  it,  until  you  press  ENTER. 


The  same  goes  for  the  PRINT  2  you  have  at  the  bottom  of  the 
screen.  Until  you  press  ENTER  the  computer  will  do  nothing 
about  it.  Press  ENTER  now  and  you  should  see  the  number  % 
appear  at  the  top  of  the  screen.  This  is  how  PRINT  works* 
takes  the  information  which  follows  the  command  PRINTS 
with  a  few  exceptions  which  we’ll  learn  about  in  a  moment,  and 
PRINTS  this  on  the  screen,  which  after  all  is  exactly  what  you’d 
expect  it  to  do. 


But  your  computer  is  more  clever  than  that.  If  the  word  PRINT 
is  followed  by  a  sum,  it  will  work  it  out  before  printing,  and  give 
you  the  result  of  that  sum.  Try  it  now.  Enter  the  following  line, 
then  press  ENTER  (you’ll  find  the  +  sign  on  the  K  key,  and  you 


1 0  GETTING  STARTED  ON  YOUR  Z X  SPECTRUM 

get  it  by  holding  down  the  red  SYMBOL  SHIFT  while  pressing 
theK): 


PRINT  5+3 


You  should  see  the  figure  8  appear  at  the  top.  The  computer 
added  5  and  3  together,  as  instructed  by  the  plus  ( + )  sign,  then 
printed  the  result  on  the  screen.  It  can  do  subtraction,  as  well 
(clever  inventions,  these  computers).  Type  in  this,  and  press 
ENTER  to  see  subtraction  (and  PRINT)  at  work  (and  the  — 
sign  is  on  the  J  key,  and  the  red  SYMBOL  SHIFT  is  needed  to 
get  it): 


PR  I NT  ■?  ~2 

Now,  the  computer  can  —  of  course  —  do  a  wide  range  of 
mathematical  tasks,  many  of  them  far  more  sophisticated  than 
simple  addition  and  subtraction.  But,  there  is  a  slight  hitch. 
When  it  comes  to  multiplication,  the  computer  does  not  use  the 
X  sign  which  you  probably  used  at  school.  Instead,  it  uses  an 
asterisk  (*),  and  for  division,  instead  of  +  the  computer  uses  a 
slash  sign  (/).  You  found  the  addition  sign  ( + )  on  the  K  key, 
and  got  it  by  holding  down  the  red  SYMBOL  SHIFT,  then 
pressing  the  relevant  key.  The  minus  sign,  for  subtraction  ( - ), 
was  on  the  J  key.  The  asterisk  (*)  for  multiplication  is  on  the  B 
key,  and  the  division  slash  (/)  is  next  to  -it  on  the  V  key.  Find 
them  now. 

DOING  MORE  THAN  ONE  THING  AT  ONCE 

ThecoMputer  is  not  limited  to  a  single  operation  in  a  PRINT 
statement.  You  can  combine  as  many  as  you  like.  Try  the  next 
one,  which  combines  a  multiplication  and  a  division.  Type  it  in, 
then  press  ENTER  to  see  the  computer  evaluate  it: 

PRINT  5*3^£ 

This  seems  pretty  simple.  Just  press  the  P  key  for  PRINT,  then 
type  in  the  material  you  want  the  computer  to  PRINT,  and 
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that’s  all  there  is  to  it.  But,  it  is  not  as  simple  as  that!  Try  the 
next  one  and  see  what  happens: 

PRINT  testing 

REPORT  MESSAGES 

That  doesn’t  look  too  good.  Instead  of  the  word  testing  we’ve 
got  a  message  from  the  computer  which  reads  as  follows: 

2  Uariabie  not  found,  ©:  l 

This  is  a  computer  report.  It  tells  you  when  you’ve  made  a 
mistake.  A  complete  list  of  the  report  codes  is  included  in  your 
manual.  We  won’t  try  to  explain  the  meaning  of  this  one  here, 
because  variables  are  not  on  the  curriculum  for  this  chapter, 
but  it  means  simply  that  the  computer  thought  you  wanted  it  to 
print  a  number,  which  had  the  name  testing.  Foolish  machine. 
Computers  may  be  very,  very  clever  machines,  but  they  need  to 
be  led  by  the  hand ,  like  a  very  stupid  child  and  told  exactly  what 
you  want  them  to  do.  Give  them  the  right  instructions,  and  they 
will  carry  them  out  tirelessly,  and  perfectly,  without  an  error. 
But  give  them  incorrect  instructions,  or  —  even  worse  — 
confuse  them,  and  they  give  up  in  despair,  or  do  something 
quite  alien  to  your  intentions . 

STRINGS 

If  you  want  the  computer  to  print  the  word  testing  you  must  pat 
quote,  or  speech  marks  around  the  words,  like  this: 

PRINT  “testing" 

This  time  when  you  press  ENTER,  the  word  testing  will  appear 
at  the  top  of  the  screen.  This  is  worth  remembering.  When  you 
want  the  computer  to  print  out  some  words,  or  a  combination 
of  words,  symbols,  spaces  and  numbers,  you  need  to  put  quote 
marks  around  the  material  you  want  it  to  print.  Information 
held  in  this  way  between  quote  marks  is  called  a  most  peculiar 
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name  in  computer  circles.  The  jargon  for  information  enclosed 
in  quote  marks  is  string.  So,  in  our  example  above,  the  word 
testing,  when  enclosed  by  quote  marks,  is  a  string. 


OUR  FIRST  PROGRAM 

Type  the  following  into  your  computer.  Notice  that  each  line 
starts  with  a  number.  Type  this  into  the  computer,  then  press 
the  P  key  to  get  PRINT,  get  the  opening  quote  marks  from  the 
P  key  (using  the  red  SYMBOL  SHIFT)  then  type  in  the  words 
which  follow  on  the  same  line  (using  CAPS  SHIFT  to  get 
capital  letters  where  needed),  then  get  the  closing  quote  marks 
from  the  P  key  again.  Then,  press  ENTER.  Instead  of  the  first 
line  appearing  on  the  screen,  the  number  10  and  its  following 
words  will  appear  on  the  screen.  This  is  the  first  line  of  your 
first  program. 


3.0  PRINT  “ J3  C  t  and 
20  PRINT  “went  op  the  hilt 
30  PRINT  “TO  fetch  a  pai 1“ 

4-0  print  "of  water" 


Type  in  the  next  line  (the  one  starting  with  20)  and  press 
ENTER  once  you  have  it  all  in  place.  If  it  does  not  immediately 
move  to  the  top  of  the  screen,  but  a  flashing  question  mark 
appears,  it  means  you’ve  left  something  out. 


As  you  can  see,  you’ve  got  your  hands  on  a  very  clever 
computer  which  will  do  its  best  to  see  you  don’t  make  mistakes. 
Look  carefully  at  the  material  you’ve  typed  in.  If  it  is  not 
accepted  by  the  computer,  then  you’ve  made  a  mistake.  The 
most  common  mistake  in  this  sort  of  program  line  is  to  leave  the 
final  quote  mark  off  the  end  of  the  line. 


The  computer  will  automatically  insert  new  line  numbers  in  the 
correct  positions.  To  see  this  in  action,  type  the  following  line 
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at  the  bottom  of  the  screen,  then  press  ENTER.  You’ll  find  the 
keyword,  which  follows  the  25,  the  word  REM,  on  the  E  key: 

2S  rem  a  tine  in  j&iddie 

Now,  the  program  will  look  like  this: 


1©  PRINT  "JscK  and  Jill** 

2®  PRINT  "went  up  the  hill" 

£5  REM  a  line  in  the  middle 
30  PRINT  "To  fetch  a  pail" 

4.©  print  "of  water" 

As  you  can  see,  the  line  numbered  25  has  moved  itself  into  the 
right  position  in  the  program,  between  lines  20  and  30.  Now, 
RUN  the  program. 

MAKING  REMARKS 

You  should  find  that  the  new  line,  line  25,  has  not  made  any 
difference  at  all  to  the  running  of  the  program.  Why  not?  Why 
did  the  computer  decide  to  ignore  line  25?  The  word  REM 
stands  for  remark  and  is  used  within  programs  when  we  want  to 
include  information  for  a  human  being  reading  the  program 
listing.  You’ll  find  REM  statements  scattered  throughout  the 
programs  in  this  book.  In  each  and  every  case  the  computer 
ignores  the  REM  statements.  They  are  there  only  for  your 
convenience,  for  the  convenience  of  the  programmer,  or  of 
someone  else  reading  a  program. 

Often  you’ll  use  REM  statements  at  the  beginning  of  the 
program,  like  this  one: 

5  REM  JatK  and  Jill  poets 

You  may  wonder  why  this  would  be  necessary.  After  all,  it  is 
pretty  obvious  that  the  computer  is  holding  the  ‘Jack  and  Jill 
poem’ ,  even  without  the  line  5  REM  statement.  You  are  right. 
In  this  case  there  is  little  point  in  adding  a  title  REM  statement 
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to  this  program.  But  have  a  look  at  some  of  the  more 
complicated  programs  a  little  further  on  in  the  book.  Without 
REM  statements  you’d  have  a  pretty  difficult  time  trying  to 
work  out  what  the  program  was  supposed  to  do. 


REM  statements  are  often  scattered  throughout  programs. 
There  they  serve  to  remind  the  programmer  what  each  section  is 
supposed  to  do.  Once  you’ve  been  programming  a  while,  you’ll 
be  amazed  at  how  many  programs  you’ll  collect  in  listing  form 
which  —  when  you  go  back  to  them  in  a  month  or  so  —  will 
seem  totally  obscure.  You  won’t  have  a  clue  how  the  program 
works,  or  even  more  important,  what  on  earth  it  is,  or  what  it  is 
supposed  to  do.  This  is  where  you  will  find  REM  statements 
invaluable. 


It  is  worth  getting  into  good  habits  early  as  a  programmer.  So,  I 
suggest  you  start  right  now  adding  REM  statements  to 
programs.  If  you  come  across  programs,  or  program 
fragments  in  this  book,  which  you  want  to  keep,  and  which  do 
not  have  REM  statements,  get  into  the  habit  of  using  REM 
statements  by  adding  them  to  these  programs.  And  make  sure 
you  use  them  in  your  original  programs. 


BACK  TO  PRINT 

Let’s  return  to  the  subject  of  the  PRINT  command.  Empty 
your  computer’s  memory  by  pressing  the  A  key,  so  the  word 
NEWapjagars.  Get  the  computer  to  act  on  that  command  by 
pressing  ENTER,  and  you’ll  be  treated  to  a  dramatic  display  of 
black  rectahgles,  before  the  screen  clears  to  give  you  the 
copyright  notice  which  indicates  that  you  have  ‘NEWed’ 
successfully. 


MORE  PRINT  STATEMENTS 
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Type  the  following  program  into  your  computer  and  then  run 


10 


30 

35 

*0 

4*S 

50 

55 

50 


PRINT  X ,2 
PRINT 

PRINT  i;a;3 
PP  tmt 

PRINT  "tittex” 

PRINT 

PRINT  **23-J-34-  =  ";  23+34. 

PRINT 
PRINT  2*3 
PRINT 
PRINT  3*5 
PRINT 

PRINT  "the  answer  is  ";23+5 


You  should  get  something  like  this  on  the  screen: 


x 


2 


t  inex 

23  +34=5? 


24.3 

the  answer  is  26.353533 

Now  there  is  a  lot  we  can  learn  from  this  program. 

Firstly,  as  in  the  ‘Jack  and  Jill’  program,  the  computer  executes 
a  program  line  by  line,  starting  at  the  lowest  numberldbne  and 
proceeding  through  the  line  numbers  in  order  until  it  runs,  out 
of  numbers,  when  it  stops.  (You’ll  discover  that  this  orderly 
progression  of  line  numbers  does  not  alwafi  apply,  as  there  are 
ways  of  making  the  computer  execute  parts  of  a  program  out  of 
strict  numerical  order,  but  for  the  time  beihglft is  best  to 
assume  that  the  program  will  be  executed  in  order*) 
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Look  first  to  line  10  of  your  program.  You  can  see  that  there  is  a 
comma  (which  you  get  from  the  N  key,  using  the  red  SYMBOL 
SHIFT)  between  the  1  and  the  2.  This  has  the  effect  of  getting 
the  computer  to  print  the  first  number  (1)  on  the  left  hand  side 
of  the  screen,  and  the  second  number  (2)  at  about  the  middle. 
When  you  use  a  comma  like  this  to  divide  the  things  which 
follow  a  PRINT  statement  (but  not  when  the  comma  is  in  a 
string,  that  is,  between  quote  marks),  it  divides  the  screen  into 
two,  printing  that  which  follows  the  comma  starting  at  the  next 
available  half  of  the  screen.  If  the  line  had  read  PRINT  1,2,3  it 
would  have  printed  the  1  at  the  start  of  the  first  line,  the  2  at  the 
start  of  the  second  half  of  the  first  line,  and  the  3  underneath 
the  one,  because  this  was  the  ‘next  available  half  screen’ .  If 
you’re  not  too  clear  what  we  mean  by  this,  try  it  yourself. 

The  second  line  of  the  program  (line  1 5)  is  just  the  word  PRINT 
with  nothing  following  it.  This  has  the  effect,  as  you  can  see  in 
the  printout  (and  on  your  television  screen),  of  putting  a  blank 
line  between  those  lines  which  do  include  material  after  the 
word  PRINT.  (The  same  comment  applies  to  lines  25,  35,  45, 
55  and  65.) 

Line  20  has  three  numbers  (1,2  and  3)  separated  not  by  commas 
(as  in  line  10)  but  by  semicolons  (found  on  the  O  key).  Instead 
of  separating  the  output  of  the  numbers  as  the  comma  did, 
you’ll  see  that  it  causes  them  to  be  printed  hard  up  against  each 
other,  as  in  the  second  line  of  the  program.  You  use  the 
semicolon  (;)  when  you  want  some  printed  material  to  follow 
other  printed  material  without  a  break. 

Line  :30  is  the  word  timex  and  this  is  a . If  you 

mentally  said §tring  when  you  came  to  those  dots,  then  you’re 
learning  welh  Lhis  word  is  a  string,  in  computer  terms,  because 
it  is  enclosed  within  quote  marks. 

Line  40  is  rather  interesting.  For  the  first  time  we  have  included 
numbers  and  a  symbol  (=)  within  a  string.  As  you  can  see,  the 
computer  prints  exactly  what  is  within  the  quote  marks,  but 
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works  out  the  result  of  the  calculation  for  the  material  outside 
the  quote  marks,  giving  —  in  this  case — the  result  of  adding  23 
to  34.  Try  to  remember  that  the  computer  considers  everything 
within  quote  marks  as  words,  even  if  it  is  made  up  from 
numbers,  symbols,  or  even  just  spaces,  or  any  combination  of 
them,  while  it  counts  everything  that  is  not  within  quote  marks 
in  a  PRINT  statement  as  a  number.  This  is  why  it  got  so  upset 
earlier  when  we  told  it  to  print  testing  without  putting  the  word 
in  quote  marks.  It  looked  for  a  number  which  was  called 
testing ,  and  because  it  could  not  find  one  (as  we  had  not  told  the 
computer  to  let  testing  equal  some  numerical  value),  it  refused 
to  co-operate. 

So  line  40  treats  the  first  part,  within  quote  marks,  as  a  string, 
and  the  second  part,  outside  quote  marks,  as  numerical 
information  which  it  processed. 

In  line  50  we  see  the  asterisk  (*)  used  to  represent  multiplication 
and  the  computer  quite  reasonably  works  out  what  2  times  3  is 
and  prints  the  answer  6.  In  line  60  we  come  across  a  new,  and 
strange  sign,  a  little  upward  arrow.  This  means  ‘raise  to  the 
power*  so  line  60  means  PRINT  35.  Now,  it  is  pretty  difficult 
for  a  computer  to  print  a  number  half  way  up  the  mast  of 
another  number,  so  we  use  the  upward  arrow  to  remind  you  (by 
pointing  upward)  that  it  really  means  ‘print  the  second  number 
up  in  the  air’.  You  probably  know  that  72  is  read  as  ‘seven 
squared’.  It  means  to  raise  seven  to  the  second  power.  In  a 
similar  way,  35  means  raise  three  to  the  fifth  power  which  is 
exactly  what  the  computer  does  in  line  60. 

The  final  line  of  this  program  combines  a  string  (‘the  answer- 
is’)  with  numerical  information  (23  +  5  — 7/6^  You  can  see 
that,  as  expected,  the  computer  works  out  le-sum  before 
printing  the  answer,  and  prints  the  string  exactly  as  it  is.  Look 
closely  at  the  end  of  the  string.  You’ll  see  there is-a  space  there. 
After  the  closing  quote  is  a  semicolon  (;)  which,  as  we  learned  in 
line  20,  joins  various  elements  of  a  PRINT  statement  together. 
This  semicolon  means  that  the  result  of  the  calculation  is 
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printed  up  next  to  the  end  of  the  string.  However,  if  there  were 
no  space  within  the  quote  marks,  the  result  of  printing  line  70 
would  be: 

the  answer  is£6<833333 

As  you  can  see,  this  is  by  no  means  as  clear  as  the  original 
version. 

That  brings  us  to  the  end  of  the  second  chapter  of  the  book. 
We’re  sure  you’ll  be  pleased  at  how  much  you’ve  learned  so  far, 
and  are  looking  forward  to  continuing  your  learning.  But  now 
you’ve  earned  a  break.  So  take  that  break,  and  then  come  back 
to  the  book  to  tackle  the  third  chapter. 


rHAPTFH  THPFF 
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RINGING  THE 
CHANGES 


It’s  all  very  well  getting  things  onto  the  computer’s  screen  as  we 
learnt  to  do  in  the  last  chapter,  but  from  time  to  time  you’ll 
discover  we  need  to  be  able  to  get  printed  material  off  the  screen 
during  a  program,  to  make  way  for  more  PRINT  statements. 
We  do  this  with  a  command  called  CLS,  for  Clear  the  Screen. 

CLEAR  THE  SCREEN 

Enter  the  following  program  into  your  computer  and  run  it. 
You’ll  find  the  keyboard  INPUT  on  the  I  key,  and  the  dollar 
sign  after  the  a  in  line  20  comes  from  the  4  key.  You  get  the 
dollar  sign  by  holding  down  the  red  symbol  shift  while  pressing 
the  four  key. 

I©  print  "testing** 

a©  INPUT  a  $ 

FM  ^ 


When  you  run  the  program,  you’ll  see  the  word  testing  appear 
at  the  top  of  the  screen,  more  or  less  as  you’d  expect: 

However,  down  at  the  bottom  you’ll  see  a  pair  of  quote  marks, 
and  an  L  blinking  off  and  on: 
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This  is  an  input  prompt.  An  input  prompt,  which  appears  in  a 
program  when  the  computer  hits  the  word  INPUT,  means  the 
computer  is  waiting  for  you  to  enter  something  else  into  the 
computer,  or  just  to  press  ENTER.  You’ll  recall  that  we  spoke 
earlier  about  strings  and  about  how  they  were  anything  which 
was  enclosed  in  quote  marks.  The  computer  signals  that  it  is 
talking  about  a  string  by  using  the  dollar  sign.  So  line  20  is 
waiting  for  a  string  called  a$  to  be  input  by  you .  That  is  why  the 
input  prompt  has  quote  marks  around  it.  When  the  computer  is 
waiting  for  a  number  to  be  entered,  the  input  prompt  —  as 
you’ll  see  in  due  course  —  looks  a  little  different. 

Anyway,  when  you  respond  to  the  input  prompt  by  pressing 
ENTER,  you’ll  see  the  screen  clears,  and  testing  disappears. 
Where  did  it  go?  We  pointed  out  that  the  computer  works 
through  a  program  in  line  order.  Firstly,  with  this  program,  it 
printed  testing  on  the  screen,  then  progressed  to  line  20,  where 
it  waited  for  an  input  (or  for  you  to  press  ENTER).  Once  you’d 
done  this  in  line  20,  it  moved  along  to  line  30  where  it  found 
CLS  and  obeyed  that  instruction.  The  instruction  was  to  clear 
the  screen,  so  the  computer  did  just  that,  and  the  screen  went 
clear. 

Run  the  program  a  few  more  times,  until  you’ve  got  a  pretty 
good  idea  of  what  is  happening,  and  you’ve  followed  through 
—  in  your  mind  —  the  sequence  of  steps  the  computer  is 
executing. 

DOING  IT  AUTOMATICALLY 

Instead  of  waiting  for  you  to  press  ENTER,  you  can  write  a 
program  which  clears  the  screen  automatically,  as  our  next 
example  demonstrates.  Enter  this  next  program  into  your 
computer,  press  RUN,  then  ENTER,  and  sit  back  for  the 
Amazing  Flashing  Word  demonstration. 

You’ll  fihd  the  word  FOR  —  used  in  lines  20  and  30  —  on  the  F 
key.  FOR  is  a  key  word,  so  appears  automatically  after  you 
have  entered  a  line  number.  The  word  TO,  which  appears  in  the 
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same  lines,  also  comes  from  the  F  key.  You  get  it  by  holding 
down  the  red  SYMBOL  SHIFT  and  then  pressing  the  F  key. 
¥  oil’ll  remember  that  we  get  the  words  and  symbols  on  the  keys 
in  red  (such  as  the  dollars  sign  on  the  4  key,  used  in  the  previous 
program),  by  holding  down  the  red  SYMBOL  SHIFT  then 
pressing  the  appropriate  key. 


10  PRXNT  "autntestin 
20  FOR  a  =i  TO  100 
30  NEXT  a 
4-@  CLS 


S0  FOR  a  =1  TO  100 
6-0  NEXT  a 
?©  RUN 
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Run  this  program,  and  you’ll  see  the  word  autotesting 
alternately  flashing  off  and  on  at  the  top  of  the  screen.  What  is 
happening  here?  Let’s  look  at  the  program,  and  go  through  it 
line  by  line.  Firstly,  as  you  know,  line  10  prints  autotesting  at 
the  top  of  the  screen.  Next,  the  computer  comes  to  line  20, 
where  it  meets  the  word  FOR.  We’ll  be  learning  about 
FOR/NEXT  loops  (as  they  are  called)  in  detail  in  a  later 
chapter,  but  all  you  need  to  know  here  is  that  the  computer  uses 
FOR/NEXT  loops  for  counting.  In  this  program  lines  20  and 
30  (for  FOR  is  in  line  20,  the  NEXT  in  line  30)  tell  the  computer 
to  count  from  one  to  100,  before  moving  on.  As  you  can  see,  it 
does  this  counting  pretty  quickly. 


So,  it  waits  for  a  moment  while  counting  from  one  to  100.  Then 
it  comes  to  line  40,  which  is  the  command  CLS,  which  tells  the 
computer  to  clear  the  screen.  It  does  this,  and  autotesting 
disappears  from  the  screen.  The  computer  then  encounters,  in 
lines  50  and  60,  another  FOR/NEXT  loop,  so  it  waits  a  while  as 
it  counts  from  one  to  100  again.  Continuing  on  in  sequence,  it 
comes  to  line  70,  where  it  finds  the  word  RUN.  Now,  ass  you 
know,  you  get  the  computer  to  execute  a  program  by  pressing 
RUN,  followed  by  ENTER.  But  RUN  is  a  key  word,  so  there  is 
no  reason  why  you  cannot  use  it  within  a  program ,  as  we  have  in 
line  70  of  this  program.  When  the  computer  comes  to  line  70,  it 
obeys  the  command,  and  RUNs  the  program  again,  so  that  it 
goes  through  the  autotesting  printing,  counting  to  100,  clearing 
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the  screen,  counting  to  100  again,  and  then  hitting  RUN  so  that 
the  whole  dance  starts  over. 


CHANGING  PROGRAM  LINES  EASILY 

Your  computer  is  provided  with  an  EDIT  function  which 
makes  it  very  simple  to  change  the  content  of  lines  within  a . 
program.  NEW  the  current  program,  then  enter  the  following 
program  into  your  computer.  Do  not  press  RUN.  We  want  to 
explain  something  about  the  program  before  you  do: 

1©  rem  an  edi t  test 
S©  PRINT  "test  again** 

30} PRINT  "and  again" 


If  you  look  at  line  30  of  the  program,  between  the  30  and  the 
word  PRINT,  you’ll  see  a  small  sideways  “v”,  pointing  at  the 
word  PRINT.  This  is  the  current  line  marker  which  indicates 
the  latest  line  you  have  entered. 


Now  look  above  the  5,  6, 7  and  8  keys.  You’ll  see  little  arrows 
printed  there.  These  are  cursor  control  arrows.  Press  down  on 
the  white  CAPS  SHIFT,  and  watching  the  little  “v”  carefully 
as  you  do  so,  touch  the  7  key  once,  the  key  with  the  upward 
arrow  on  it.  You  should  see  the  “v”  move  up  to  line  20.  You 
can  make  the  “v”  move  up  and  down  as  you  wish,  using  the  6 
and  7  keys. 


Once  you’ve  done  this  a  few  times,  move  the  ‘  V ’  up  to  line  10. 
Now,  continue  holding  down  the  CAPS  SHIFT,  and  press  the  1 
key,  which  has  the  word  EDIT  written  above  it.  You’ll  see  the 
first  line  (10)  re-appear  at  the  bottom  of  the  screen,  back  in  your 
work  space.  You  can  now  change,  or  edit,  this  line.  Still  holding 
down  CAPS  SHIFT,  press  the  8  key,  which  has  an  arrow 
pointing  to  the  right  over  it.  You’ll  see  the  cursor  suddenly 
appear  on  the  right  hand  side  of  the  word  PRINT.  Continue 
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holding  it  down,  and  the  cursor  will  move  across  the  screen, 
letter  by  letter  through  the  words  an  edit  test: 

1©  REM  an  ediSt  test 

Get  it  right  to  the  end  of  the  word  tot  then  use  the  DELETE  key 
(0)  key,  with  CAPS  SHIFT  depressed  to  erase  all  the  letters 
after  the  word  PRINT.  Now  type  in  new  words,  so  the  line 
reads: 

3.0  REM  an  edit  change 

When  you’ve  done  this,  press  ENTER  as  if  you  had  just 
finished  entering  a  standard  line  of  program.  You’ll  see  the  new 
line  10  jumps  instantly  to  the  top  of  the  screen  where  it  takes  the 
place  of  the  old  line  10.  You  have  just  edited  a  program  line. 
Using  EDIT  and  the  S,  6,1  and  8  keys,  you  can  move  your 
cursor  around  anywhere  you  like.  Before  you  read  on,  spend 
some  time  changing  lines  10, 20  and  30,  until  you’re  completely 
familiar  with  the  use  of  EDIT  and  the  cursor  control  keys. 

GETTING  THE  PROGRAM  BACK 

You’ll  notice  that,  after  you’ve  RUN  a  program,  the  listing  of 
the  program  disappears.  You  can  get  it  back  by  pressing  the  K 
key,  to  get  the  word  LIST  on  the  screen,  then  press  ENTER. 
Try  it  now  with  the  program  you  have  in  your  computer. 

There  is  no  reason  why  you  must  LIST  from  the  start  of  a 
program.  This  is  a  very  useful  feature  when  you  have  a  program 
which  is  so  long  that  not  all  of  it  will  fit  on  the  screen  at  once. 
Type  in  LIST  20  and  press  ENTER.  You’ll  see  lines  20  and  30 
appear  on  the  screen.  The  computer  will  LIST  from  the 
number  with  which  you  have  followed  the  command  LIST. 
Now  try  it  with  LIST  15.  Again,  the  lines  numbered  20  and  30 
will  appear.  If  the  line  number  specified  after  the  word  LIST 
does  not  exist,  the  computer  will  go  to  the  next  available 
number,  and  LIST  from  there. 
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USING  THE  PRINTER 

There  are  three  commands  which  trigger  the  printer,  and  they 
are  simple  to  use  and  remember.  The  two  most  obvious  ones  are 
LPRINT  and  LLIST  which  work  exactly  the  same  as  PRINT 
and  LIST,  except  that  instead  of  printing  or  listing  onto  the 
screen ,  they  do  it  onto  the  printing  paper .  LLIST  can  be  used  to 
list  onto  the  printer  paper  from  a  specific  number  (by  entering,, 
say,  LLIST  5000,  you’ll  just  get  the  listing  from  line  5000 
onwards),  just  as  LIST  can  be  used. 

The  third  command  is  COPY  which  copies  a  picture  of 
whatever  is  on  the  screen  onto  the  printer. 


In  summary: 

Command: 

LUST 

LPRINT 


COPY 


Result; 

Lists  the  program  to  the  printer 
Prints  on  the  printer  paper  rather  than 
the  screen 

Copies  whatever  is  on  the  screen 
directly  to  the  printer 


CHAPTER  FOUR 
DESCENT  INTO 
CHAOS 


It’s  time  now  to  start  developing  some  real  programs.  You’ll 
notice  that  from  this  point  on  in  the  book  there  are  some  rather 
lengthy  programs.  Many  of  them  will  contain  words  from  the 
B  ASIC  programming  language  which  have  not  been  explained. 
This  is  because,  as  programs  become  more  complex  (and  far 
more  satisfying  to  run)  it  becomes  more  and  more  difficult  to 
keep  programming  words  which  have  not  been  explained  out  of 
the  program.  However,  it  is  not  a  major  problem. 


We  are  working  methodically  through  the  commands  available 
on  the  computer,  and  in  due  course,  all  of  them  will  be  covered. 
When  you  come  across  a  word  in  a  program  which  seems 
unfamiliar,  just  enter  it  into  the  program.  You’ll  find  that 
you’ll  soon  start  picking  up  the  meaning  of  words  which  have 
not  been  explained,  as  you  see  how  they  are  used  within  a 
program.  So,  if  you  find  a  new  word,  don’t  worry  *  The 
program  will  work  perfectly  without  you  knowing  what  the 
word  is,  and  investigating  the  listing  after  you’ve  seen  the 
program  running  is  likely  to  allow  you  to  work  out  what  it 
means  anyway. 

RANDOM  EVENTS 

In  the  world  of  nature,  as  opposed  to  the  manufactured  world 
of  man,  randomness  appears  to  be  at  the  heart  of  many  events. 
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The  number  of  birds  visible  in  the  sky  at  any  one  time,  the  fact 
that  it  rained  yesterday  and  may  rain  again  today,  the  number 
of  trees  growing  on  one  side  of  a  particular  mountain,  all 
appear  to  be  somewhat  random.  Of  course,  we  can  predict  with 
some  degree  of  certainty  whether  or  not  it  will  rain,  but  the 
success  of  our  predictions  appears  to  be  somewhat  random  as 
well. 


When  you  toss  a  coin  in  the  air,  whether  it  lands  heads  or  tails 
depends  on  chance.  The  same  holds  true  when  you  throw  a  six- 
sided  die  down  onto  the  table.  Whether  it  lands  with  the  one, 
the  three  or  the  six  showing  depends  on  random  factors. 


Your  computer  has  the  ability  to  generate  random  numbers 
which  are  very  useful  for  getting  the  computer  to  imitate  the 
random  events  of  the  real  world.  If  you  look  at  the  T  key  you’ll 
see  the  word  RND  which  stands  for  random. 

GENERATING  RANDOM  NUMBERS 

We’ll  start  by  using  RND  just  as  it  is  to  create  some  random 
numbers.  Enter  the  following  program,  and  run  it  for  a  while 
(you’ll  find  GOTO  on  the  G  key): 


i©  PRINT  RND 
20  GQ  TO  10 

When  you  do,  you’ll  see  a  list  of  numbers  like  these  appear  on 
the  screen: 

m . 16993713 
0. 74-623 103 
S . 96762085 
0 , 57 1594.24. 

0 . 870056 15 
0 . 254-34.875 
.07699585 
© . 77574153 
0  ,  1808624.3 
0.56551279 
0.42144775 
0 . 60923767 
9 . 69326782 
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0  .  9954-3763 
0 . 657S2166 
0 . 33700563 
0. 2762.6833 
0.7134-3573 
0 .51174.937 
©.381744.38 
© . 53 153076 
0 • 35521912 


As  you  can  see,  RND  generates  numbers  randomly  between 
ifero  and  one.  If  you  leave  it  running,  it  will  go  on  and  on 
apparently  forever,  writing  up  new  random  numbers  on  the 

screen. 


Now  random  numbers  between  zero  and  one  are  of  limited 
interest  if  we  want  to  generate  the  numbers  and  get  them  to 
stand  for  something  else.  For  example,  if  we  could  generate  1  ’s 
stud  2’s  randomly,  we  could  call  the  l’s  heads  and  the  2’s  tails 
and  use  the  computer  as  a  kind  of  electronic  ‘coin’.  If  we  could 
get  it  to  produce  whole  numbers  between  one  and  six,  we  could 
use  the  computer  as  an  imitation  six-sided  die. 

Fortunately,  there  is  a  way  to  do  this.  Enter  the  next  program 
and  run  it.  You’ll  get  the  INT  above  the  R  key  (and  remember 
you  get  the  words  above  keys  by  pressing  both  shift  keys,  then 
releasing  them,  then  pressing  the  key  you  want),  and  the 
parenthesis  are  on  the  8  and  9  keys  (and  you  get  them  by  holding 
(town  the  red  SYMBOL  SHIFT  key  while  pressing  the  8  and  the 
9),  The  plus  sign  ( + )  is  on  the  K  key,  as  we  discovered  earlier, 
and  the  semicolon  (;)  which  comes  after  the  1  in  line  10  and  at 
the  end  of  the  line,  comes  from  the  O  key.  There  is  a  single  space 
between  the  quote  marks  at  the  end  of  line  10.  You  get  the  space 
Just  by  pressing  the  SPACE. 

If  PRINT  INT  tRND*©>  +1;  ** 

it®  UO  TO  a.0 

When  you  run  this  program,  you’ll  get  a  series  of  numbers 
(chosen  at  random  between  1  and  6)  like  these: 
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36  4-335  3.52  4625526 
53.666  166665322  3  4 

6625554134315611 
1  1  6  5  125  115336462 
13  4 


Even  though  we  can  create  vast  series  of  numbers  between  1 
and  6  with  a  program  like  this,  it  is  not  particularly  interesting. 
And,  if  you  ran  the  program  over  and  over  again,  you  might 
find  that  the  sequence  of  numbers  may  start  to  become  a  little 
familiar.  The  random  numbers  may  stop  looking  so  random. 


This  is  because  the  computer  does  not  really  generate  random 
numbers,  but  only  looks  as  if  it  is  doing  so.  Inside  its  electronic 
head,  the  computer  holds  a  long,  long  list  of  numbers,  which  it 
prints  out  in  order  when  asked  for  random  numbers.  The  list  is 
so  long,  it  is  almost  impossible  to  see  any  pattern  or  repetition 
in  it.  However,  this  is  often  not  quite  good  enough.  Some 
programs  demand  numbers  which  are  as  close  as  possible  to 
genuinely  random. 

SEEDING  THE  RANDOM  NUMBER 
GENERATOR 

Fortunately,  we  can  do  this  on  our  computer.  The  key  word 
RANDOMIZE  (which  you  get  from  the  T  key,  where  it  is 
written  as  RAND)  helps  us  in  this.  What  it  does  is  chooses  a 
starting  position  somewhere  in  this  list,  instead  of  starting  at 
the  beginning  of  the  list.  We  can  use  RANDOMIZE  in  three 
ways; 

1)  Just  press  RAND  before  you  run  a  program,  which  will 
seed  the  random  number  generator  (by  ‘seed’  we  mean  start  it 
off  in  a  random  position  within  the  list). 

2)  Include  the  line  RANDOMIZE  somewhere  (preferably  at 
the  beginning)  of  a  program,  so  it  occurs  automatically  every 
time  you  run  a  program. 

3)  Include  it  within  a  program,  and  get  the  program  to  ask 
for  a  ‘seed’ .  A  seed,  in  this  case,  is  just  a  number  the  user  enters. 
Each  time  you  enter  the  same  seed,  you’ll  get  the  same  result. 


CHAPTER  FOUR 


29 


Now  this  possibly  seems  confusing.  But,  don’t  worry,  it  will 
tlfi'onie  clear,  and  the  next  two  programs  are  designed  to  help 
(fluke  it  clear.  By  the  way,  from  now  on  (unless  you  see  to  the 
i'iiiilmry  because  PRINT  statements  have  small  letters)  we’ll 
RNNiime  t  hat  you’ve  engaged  CAPS  LOCK,  so  all  the  words  are 
pi  Ink'd  in  capital  letters.  You  engage  CAPS  LOCK  by  holding 
(town  the  CAPS  SHIFT  key,  then  pressing  the  2  key,  which  has 
CAPS  LOCK  written  above  it  in  white. 


FAST  FOOD  CRAZINESS 

pnlcr  and  run  the  next  program,  which  makes  an  interesting 
Unc  of  the  computer’s  ability  to  generate  random  numbers.  As 
you  can  see,  it  creates  a  scene  where  you  have  turned  up  at  a  fast 
food  outlet ,  desperate  for  something  to  eat,  and  you’ve  decided 
lo  let  random  number  generator  pick  your  food  for  you: 

10  REM  FAST  FOOD 
30  LET  A  =  INT  (RNPS4-)  +1 
4.0  PRINT  "YOU '  UE  ORDERED " 

60  IF  ft=*l  THEN  PRINT  "A  HRMBUR 

OCR  WITH  THE  LOT" 

60  IF  A  =2  THEN  PRINT  "R  LARGE 

FRENCH  FRIES" 

70  IF  A =3  THEN  PRINT  "A  SERVE 

fjf*-'  RIBS" 

60  IF  A  =4-  THEN  PRINT  "TWO  HOT 

0OOS  WITH  KETCHUP" 

90  PRINT 
100  CO  TO  30 


«fl  you  run  this,  you’ll  get  something  like  this  list  of  food  on 

•green: 

YOU  •'  UE  ORDERED 
A  HAMBURGER  WITH  THE  LOT 

r0U"UE  ORDERED 

TWO  HOT  DOGS  WITH  KETCHUP 

YOU " U E  ORDERED 
A  SERVE  OF  RIBS 

YOU'VE  ORDERED 

TWO  HOT  DOGS  WITH  KETCHUP 
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Once  the  screen  is  full,  the  following  word  will  appear: 

Sc  r  o 1 1? 

This  is  the  the  computer's  way  of  asking  if  you  want  to  scroll ,  or 
roll  the  contents  of  the  screen  upward  and  continue  the 
program.  If  you  press  the  N  key  (for  no)  or  the  BREAK  key,  the 
program  will  stop.  Pressing  any  other  key  will  keep  it  running. 

Notice  how  the  program  sets  the  letter  A  to  the  value  of  the 
random  number  in  line  30.  In  this  case,  the  letter  A  is  standing 
for  a  number.  It  is  called  a  variable,  or,  because  it  stands  for  a 
number  (as  opposed  to  standing  for  a  word,  or  a  string)  it  is 
called  a  numeric  variable.  In  computer  jargon,  we  say  that,  (in 
line  30)  the  computer  has  assigned  the  value  of  the  random 
number  to  the  variable  A.  And, as  you  can  see  in  lines  50, 60, 70 
and  80,  the  value  assigned  to  A  determines  which  food  order 
you  place.  Read  this  over  if  it  seems  incomprehensible  the  first 
time. 

PLANTING  A  SEED 

Now,  we  are  going  to  modify  the  program,  using  the  EDIT 
command  and  the  cursor  control  keys  (on  5,  6,  7  and  8)  which 
we  discussed  earlier.  Change  your  original  program,  so  it  looks 
like  this,  modifying  some  lines  and  adding  others.  You’ll  find 
the  single  apostrophe  (’)  on  the  7  key,  and  the  word  PAUSE  is 
on  the  M  key: 

1©  REM  FAST  FOOD 

a©  INPUT  "ENTER  RANDOMIZE  SEED 
**  * 

2S'*  RANDOMIZE  fl 

3©  LET  A=INT  (RNDf4-)  +  1 

35  PRINT  ' ' ' R 

4.©  PRINT  "YOU '  UE  ORDERED" 

50  IF  ft =1  THEN  PRINT  "ft  HAMBUR¬ 

GER  WITH  THE  LOT” 

6©  IF  Az2  THEN  PRINT  "ft  LARGE 

FRENCH  FRIES" 

7©  IF  ft =3  THEN  PRINT  "ft  SERUE 

OF  RIBS” 
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S0  IF  R=4-  THEN  PRINT  “TWO  HOT 
DOGS  WITH  KETCHUP” 

9©  PAUSE  4.0 
100  GO  TO  2© 

When  you  run  this,  the  computer  will  stop  and  the  words 
ENTER  RANDOMIZE  SEED  will  appear  at  the  bottom  of  the 
(screen.  This  is  an  input  prompt.  When  you  place  words  in  quote 
marks  after  the  word  INPUT,  they  appear  at  the  bottom  of  the 
screen  to  tell  you  what  kind  of  input  the  computer  expects.  In 
1  his  case,  because  the  letter  A  after  the  semicolon  at  the  end  of 
line  20  does  not  have  a  dollar  sign  after  it  (that  is,  it  is  not  a 
siring),  the  computer  is  expecting  you  to  enter  a  number.  You 
can  enter  any  number  you  like,  and  you’ll  soon  discover  which 
numbers  to  enter  to  get  the  food  you  want. 

The  display  on  the  screen  looks  like  this  when  the  program  is 
running,  with  the  random  number  generated  in  line  30  printed 
by  line  35. 


YOU ' UE  ORDERED 
ft  HAMBURGER  WITH  THE  LOT 


YOU ' UE  ORDERED 
R  LARGE  FRENCH  FRIES 


3 

YOU ' UE  ORDERED 
ft  SERUE  OF  RIBS 


4. 

YOU ' UE  ORDERED 

TWO  HOT  DOGS  WITH  KETCHUP 


Mol  Ice  how  easy  it  was  to  modify  the  program  using  EDIT. 
You’ve  probably  worked  out  what  PAUSE  does.  It  stops  the 
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program  for  a  moment  or  two,  the  length  of  the  delay  being 
related  to  the  number  which  follows  the  word  PAUSE.  If  it  is 
60,  it  will  pause  for  exactly  one  second,  120  for  two  seconds  and 
so  on.  PAUSE  is  very  useful  for  pacing  the  running  of  a 
program  to  suit  you. 


r^ii  a  o nr  170  rivi? 

X>Xi.rV  jt  X  Jl/JX.  XXV  XL 

ROUND  AND  ROUND 

WE  GO 


In  this  chapter  we’ll  be  introducing  a  very  useful  part  of  your 
programming  vocabulary  —  FOR/NEXT  loops.  You’ll  recall 
that  we  mentioned  FOR/NEXT  loops  when  demonstrating  the 
use  of  CLS  to  clear  the  screen.  There,  a  loop  was  used  to  add  a 
delay  after  the  word  was  printed  on  the  screen  before  the  screen 
was  cleared. 

A  FOR/NEXT  loop  is  pretty  simple.  It  has  the  form  of  two 
lines  in  the  program,  the  first  like  this: 

FOR  R=1  TO  2© 


And  the  second  as  follows: 

NEXT  R 

The  control  variable,  the  letter  after  FOR  and  after  NEXT 
must  be  the  same. 

10  FOR  R=i  TO  2© 
a©  PRINT  fi;  "  **; 

3©  NEXT  fi 

As  a  FOR/NEXT  loop  runs,  the  computer  counts  from  the  first 
number  up  to  the  second,  as  these  two  examples  will  show: 
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When  you  run  it,  this  appears  on  the  screen: 

i234.56.78S  I©  li  12  13  14- 

IS  16  17  13  IS  2© 


Here’s  another  version: 

1©  FOR  ft  =765  TO  781 
2©  PRINT  ft j  '* 

3©  NEXT  ft 

And  this  is  the  result  of  running  it: 

765  756  767  768  769  770  771  772 

773  774.  775  776  777  77S  /72  73© 

731 

STEPPING  OUT 

In  the  two  previous  examples,  the  computer  has  counted  up  in 
one,  but  there  is  no  reason  why  it  should  do  so.  The  word 
STEP,  which  you’ll  find  on  the  D  key,  can  be  used  after  the 
FOR  part  of  the  first  line  as  follows: 

1©  FOR  R=10  TO  1©©  STEF  1© 

3©  PRINT  ft;  "  **; 

3©  NEXT  ft 

When  you  run  this  program,  you’ll  discover  it  counts  (probably 
as  you  expected)  in  steps  of  10,  producing  this  result: 

1©  2©  3©  4-0  5©  6©  7©  3©  9©  100 

STEPPING  DOWN 

ThfiSTEPWoeS;<not  have  to  be  positive.  Your  computer  is  just 
atfeppy  canaiing  backwards,  using  a  negative  step  size: 
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,10  FOR  ft -1©0  TO  10  STEP  -10 
P0  print  ft;  ” 

30  NEXT  ft 

This  is  what  the  program  output  looks  like: 


10©  S3  8©  ?S  6©  50  4-0  3©  a©  10 


MAKING  A  NEST 

It  is  possible  to  place  one  or  more  FOR/NEXT  loops  within 
each  other.  This  is  called  nesting  loops.  In  the  next  example,  the 
B  loop  is  nested  inside  the  A  loop: 


X©  FOR  ft=±  TO  3 
20  FOR  B~1  TO  £ 

30  PRINT  ft;"  TIMES  ";B;"  IS 

ft  ’St’B 

4-©  NEXT  B 
5©  NEXT  ft 


The  nested  programs  produce  this  result: 


jl  i  JL  i 

1  TIMES 
a  TIMES 
a  TIMES 
3  TIMES 
3  TIMES 


X 

IS 

X 

£ 

~r  c: 

i  J  i 

a 

X 

xs 

£ 

e 

4. 

X 

IS 

3 

a 

xs 

S 

You  must  be  very  careful  to  ensure  that  the  first  loop  started  is, 

the  last  loop  finished.  That  is,  if  FOR  A . was  the  first  loop 

you  mentioned  in  the  program,  the  last  NEXT  must  be  NEXT 

A. 


Here’s  what  can  happen  if  you  get  them  out  of  onSebfthe  Bfttttj 
ends  after ,  rather  than  before,  the  A  loop): 


36 


GETTING  STARTED  ON  YOUR  ZX  SPECTRUM 


10  FOR  ft  =1  TO  3 
SB  FOR  E=1  TO  £ 

3©  PRINT  ft;"  TIMES  ";B;”  IS  " 
ft  9-B 

4-B  NEXT  ft 
SB  NEXT  B 

1  TIMES  1  IS  1 

2  TIMES  1  IS  2 

3  TIMES  1  IS  3 

4-  TIMES  2  IS  S 


MULTIPLICATION  TABLES 

You  can  use  nested  loops  to  get  the  computer  to  print  out  the 
multiplication  tables,  from  one  times  right  up  to  twelve  times 
twelve,  like  this: 


1©  FDR  ftssl  TO  1£ 

20  FOR  B=1  TO  12 
3©  PRINT  ft; “  TIMES  “;B;"  IS 
ft  #B 

4-B  NEXT  B 
50  NEXT  ft 


Here’s  part  of  the  output: 


4-  TIMES 
TXHtrS 
5  TIMES 
5  TIMES 
S  TIMES 
5  TIMES 
S  TIMES 
5  TIMES 
5  TIMES 
5  TIMES 
5  TIMES 
5  TIMES 
5  TIMES 
t>  TIMES 
S  TIMES 
S  TIMES 
I  JL 

S  TIMES 


12  IS  4-S 


X 

X  ^ 

5 

2 

15 

10 

3 

15 

15 

4 

X-5 

20 

S 

IS 

t^w  icy 

1MBr 

s 

X5 

30 

*7 

35 

6 

xs 

40 

Q 

Mt  I 

xs 

45 

10 

xs 

XX 

xs 

55 

XS 

xs 

60 

ipm 

xs 

6 

a 

xs 

XS 

3 

xs 

xe 

4 

xs 

24 

5 

xs 

30 
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There  is  no  reason  why  both  loops  should  be  travelling  in  the 
same  direction  (that  is,  why  both  should  be  counting  upwards), 
ns  this  variation  on  the  Times  Table  program  demonstrates: 


IS  FOR  R-l  TO  12 
20  FOR  B— 12  TO  1  STEF  -1 
3©  PRINT  R;  **  TIMES  XS  ” i 

RsB 

4>©  NEXT  B 
5©  NEXT  R 


Here’s  part  of  the  ouput  of  that  program: 


i  TIMES 
X  TIMES 
1  TIMES 

x  i 

X  TIMES 

;i  Tikis 

a  TIMES 

a  xxnns 

a  TIMES 
a  TIMES 
a  TIMES 
a  TIMES 
a  TIMES 
a  TIMES 
a  TIMES 
a  TIMES 
a  TIMES 
3  TIMES 
3  TIMES 
3  TIMES 
3  TIMES 
3  TIMES 


sr 

xs 

*5 

4* 

xs 

3 

xs 

3 

O 

xs 

o 

¥ 

xs 

1 

12 

XS  2i 

il 

JL  W  T"  *-■ 

10 

XS  20 

^  J*  ^ 

s 

W 

X  o 

H  ± =r 

W 

IS 

X 

XS 

14- 

B 

XS 

>’!  O 

xw 

10 

4» 

xs 

s 

xs 

& 

a 

xs 

4- 

i 

xs 

2 

is 

X' 

S  36 

ii 

.  IS  33 

10 

l  IS  3© 

a 

rs 

km* ■  # 

3 

xs 

a* 

CRACKING  THE  CODE 

It’s  time  for  our  first  real  program.  In  this  program  which  uses 
several  FOR/NEXT  loops,  CODEBREAKER,  the  computer 
thinks  of  a  four-digit  number  (like  5462)  and  you  have  eight 
guesses  in  which  to  work  out  what  the  code  is.  In  this  program, 
written  by  Adam  Bennett  and  Tim  Summers,  you  not  only  have 
to  work  out  the  four  numbers  the  computer  has  chosen,  but 
also  determine  the  order  they  are  in. 
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After  each  guess,  the  computer  will  tell  you  how  near  you  are  to 
the  final  solution.  A  ‘white’  is  the  right  digit  in  the  wrong  place 
in  the  code,  a  ‘black’  is  the  right  number  in  the  right  place. 
You’ll  see  that  you  are  aiming  to  get  four  blacks.  When  you 
have,  you  have  cracked  the  code.  Digits  may  be  repeated  within 
the  four-number  code.  Enter  the  program,  and  play  a  few 
rounds  against  the  computer.  Then,  return  to  the  book  for  a 
discussion  on  it,  which  will  highlight  the  role  played  by  the 
FOR/NEXT  loops.  (Note  that  the  single  apostrophe  (‘)  in  lines 
600,  630  and  640  comes  from  the  7  key.  You  get  the  word 
BLACK  in  line  380  to  print  in  black  by  putting  a  space  after  the 
quote  marks  in  that  line,  then  holding  down  CAPS  SHIFT  and 
pressing  the  4  key,  marked  INV.  (for  inverse)  VIDEO.  Once 
you’ve  written  the  word  in  white  on  black,  hold  down  CAPS 
SHIFT  again  and  press  key  3 ,  the  one  marked  TRUE  VIDEO  to 
return  to  black  on  white.) 

3.0  PRINT  “a-****-**-*-***-***-#***** 

a©  PRINT 

3©  PRINT 

4-0  PRINT  "CODEBREftKER  BY  R.J--B 


©0  PRINT 

7©  PRINT  “When  you  are  told  to 
do" 

SB  PRINT  ’’so,  enter  a  4- -digit 
nusbe r " 

9©  PRINT  “and  then  press  ENTER 

z  a 

PRINT  “Digits  can  be  repeat 

110  PRINT  “You  have  B  goes  to  b 
rea  k  " 

120  PRINT  “the  difficult  code." 
3.30  PRINT  **  3- £-3- 3-* 3- a- *3- £3 

14-0  PAUSE  350 
150  CL  3 
150  DIM  B  1 40 
17©  DIM  Di40 
180  LET  H=0 
19S  FOR  B-l  TO  4. 

20©  LET  B(ftJ=INT  (I0JRND) 

210  NEXT  ft 
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22S  FOR  C-l  TO  8 
230  INPUT  "Enter  g u es s  number  " 

'  22©'  IF  X>9999  THEN  GO  TO  230 
23©  PR  I  NT 

26©  XF  INT  l‘X/1000)  =0  THEN  PRIN 

r 


27s©  PRINT  X;  “ 

260  LET  P=INT  CXyX®00) 

23©  LET  0=INT  C  CX-X000+P?  /I ©0) 
300  LET  K=INT  C  CX-1000+P-X00+O) 

31©  LET  3- CX-100B^P-100^-I©fR) 
32©  LFT  D(l)eP 
330  LETT  D  =© 

34-0  LETT  0  t3> 

3S0  LET  Ll  (ij  =•£«• 

350  FOR  H~1  TO  4- 

370  XF  D  CF*  <  >B  CFJ  THEN  GO  TO  *2 

7* 

360  PRINT  *’  fcaawa" 

330  LET  BCE) =E (E) +10 
4-00  LET  D  CE)  *f>  CE>  +20 
4-10  LET  H  ~H + 2 

jt  pffl  KipYT  F 

230  IF’  H=4.  THEN  GO  TO  63© 

220  FOR  Fsl  TO  2 
25S  LET  E>=D  CF) 

26©  FOR  G=i  TO  2 

27©  IF  DoBCG)  THEN  GO  TO  5X0 
26©  PRINT  "  WHITE**; 

230  LET  &  CG)  =B  CG)  +1© 

500  GO  TO  520 
5X0  NEXT  G 
520  NEXT  F 
530  FOR  0=1  TO  2 

520  IF  BCG) <10  THEN  GO  TO  56® 

55©  LET  B  CG)  -B  CG)  -10 

56©  NEXT  G 

570  LET  H=0 

56©  PRINT 

53©  NEXT  C  .  ^ 

60©  PRINT  ""You  didn't  get  it, 


ft  Jt 


6X0  PRINT  ‘"The  answer  is' 
;  6  (2)  ;  B  (3)  ;  B  C2) 


am  "■* 


BCD 


62©  STOP 
© 

w  ct 


63©  PRINT 


rf1  /  *t 


ip 


welt  done*  Codebre 

c  K  e  r  “ 

62©  PRINT  '  “YOU  got  the  answer*' 
650  PRINT  ”in  Just  *’ ;  O;  ”  goes** 

Here’s  what  the  screen  looks  like  after  one  round: 
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You  got  the  answer 
in  Just  7  goes 

We’II  now  go  through  the  program  line  by  line,  a  practice  we’ll 
be  following  for  several  of  the  programs  in  this  book.  If  you 
don’t  want  to  read  the  detailed  explanation  now  (and  there  may 
be  parts  of  it  which  are  a  bit  difficult  to  understand  at  your 
present  stage),  by  all  means  skip  over  the  explanation  and  then 
come  back  to  it  later  when  you  know  a  little  more. 


Lines  10  and  130  print  a  number  of  asterisks  to  rule  off  the  title 
and  instructions ,  with  blank  lines  printed  by  lines  20, 30, 60  and 
250.  After  the  title  is  printed  by  line  40,  it  is  ‘underlined’  by  a 
series  of  graphics  available  from  the  3  key.  You’ll  probably 
remember  from  chapter  one  how  to  get  graphics.  At  the  point, 
we  explained  that  you  hold  down  the  CAPS  SHIFT  key,  and 
press  the  9  key,  which  has  the  word  GRAPHICS  above  it. 
Then,  when  you  press  the  keys  1  to  8,  instead  of  the  number, 
you  get  the  little  design  on  the  key  (and  its  inverse  version  by 
holding  dojvn  CAPS  SHIFT  again  as  you  press  the  key).  The 
underline  comes  from  the  3  key. 

.4-  -  '  »  . 

Line  140  pauses  for  a  few  seconds  to  allow  you  to  read  the 
instructions.  If  you’ve  read  them  before  this  time,  press  any 
key,  and  the  PAUSE  will  end.  Two  arrays  are  dimensioned  in 
lines  160  and  170.  We  get  to  arrays  in  a  later  chapter.  For  now, 
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all  you  need  to  know  is  that  by  saying  DIM  B(4)  you  tell  the 
computer  you  want  to  create  a  list  of  objects,  called  B,  in  which 
i  he  first  item  can  be  referred  to  as  B(l),  the  second  as  B(2),  and 
so  on .  These  two  arrays  are  used  for  storing  the  numbers  picked 
by  the  computer,  and  for  your  guess. 

1 1  is  a  numeric  variable  (we’ve  mentioned  numeric  variables 
before)  which  is  set  equal  to  zero  in  this  line.  In  line  410,  one  is 
added  to  the  value  of  H  each  time  a  black  is  found,  so  that  if  H 
equals  four,  the  computer  knows  all  the  digits  have  been 
guessed  and  goes  to  the  routine  from  line  630  to  print  up  the 
congratulations . 


The  lines  from  190  to  210  work  out  the  number  which  you  will 
have  to  try  and  guess.  Line  200  uses  the  RND  function  we’ve 
talked  about  to  get  four  random  numbers  between  zero  and 
nine,  and  stores  one  each  in  the  elements  of  the  B  array.  Note 
that  the  first  FOR/NEXT  loop  of  our  program  appears  here. 
The  A  in  line  190  equals  one  the  first  time  the  loop  is  passed 
through,  two  the  second  time,  and  so  on,  so  that  the  A  in  line 
200  changes  as  well. 

Our  next  FOR/NEXT  loop,  which  uses  C,  starts  in  the  next 
line.  It  counts  from  one  to  eight,  to  give  you  eight  guesses.  Line 
230  accepts  your  guess,  using  the  words  ‘Enter  guess  number  1  ’ 
as  an  input  prompt.  The  numeric  variable  X  is  set  equal  to  your 
guess,  and  line  240  checks  to  make  sure  you  have  not  entered  a 
five-digit  number.  If  you  have  (if  X  is  greater  than  9999)  then 
(he  program  goes  back  to  line  230  to  accept  another  guess. 


The  next  section  of  the  program,  right  through  to  lipe  580, 
works  out  how  well  you’ve  done,  using  a  number  of 
FOR/NEXT  loops  (360  to  420,  440  to  520,  460  to  510  and  530 
to  560).  Line  590  sends  the  program  back  to  the  line  after  the 
original  FOR  C  = ....  to  go  through  the  loop  again.  If  ihe  C  loop 
has  been  run  through  eight  times,  then  the  program  does  hot  go 
back  to  line  230,  but  ‘falls  through’  line  590  to  tell  you  that  you 
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have  not  guessed  the  code  in  time,  and  to  tell  you  what  it  is  .  Line 
610  prints  out  the  code. 

If  you  do  manage  to  guess  it,  so  that  H  equals  four  in  line  430, 
then  the  program  jumps  to  line  630  to  print  out  the 
congratulatory  message. 

PACKING  ’EM  IN 

You  can  save  quite  a  bit  of  space  in  the  program  (although  it 
doesn’t  always  make  it  easier  to  work  out  what  is  going  on 
within  the  program,  or  to  pick  up  errors)  by  using  multi- 
statement  lines.  With  a  multi-statement  line,  you  put  more  than 
one  statement  to  each  line  number.  Each  statement  on  the  same 
line  must  be  seperated  by  a  colon  (:). 


Here  is  a  slightly  condensed  version  of  CODEBREAKER 
produced  by  putting  more  than  one  statement  on  a  line  in 
places,  and  by  using  the  single  apostrophe  (’)  in  lines  40  and  70. 
Compare  the  two  listings ,  and  see  how  a  little  bit  of  space  can  be 
saved  with  multi-statement  lines.  Do  not  put  a  second 
statement  in  a  line  after  the  word  IF  (such  as  line  430).  The 
reason  for  this  will  be  outlined  in  the  next  chapter. 


IB  PRINT  "*  ******  ******  a- ** 

*^4-0*  PRINT*  '  '  “CODESRERKER  BY 
.  S  .  AMP  T  .  S  -  " 

50  PRINT 


ir  3-  rt* 

n  i 
n  »  v 


70  PRINT  '"When  you  are  told  t 
S  do*’ 

se  print  "so,  enter  a  4.-diait 
nusfaer” 

9©  PRINT  "and  then  press  ENTER 

* 

10©  PRINT  “Digits  can  be  repeat 

ed” 


110.  print  “You  have  s  goes  to  b 

*’ difficult  code.** 
I.S0  PRINT  ”  »***£-*$£- 5- *$■3'$' 

1*0  PAUSE  350;  CLS 

*©0  DIN  B  :  DIM  D  f*}  .  LET  H=© 
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IS©  FOR  R=1  TO  4- ;  LET  B  f  R  3  =  XHT 
;  IBjfRND.!  :  NEXT  R 
220  FOR  0=1  TO  S 

23©  INPUT  "Enter  guess  nusber  *" 

240*  XF  X>9999  THEN  GO  TO  23© 

23©  PRINT 

26©  XF  XMT  CX ^10003  =0  THEN  PRXN 

T  "0"; 

270  PRINT  X;  ’*  *•; 

280  LET  P=INT  £X>*I0003 
290  LET  0=INT  f  CX~1000+PJ>  /1B0.1 
30©  LET  R = XNT  C  £X-1000*P-100*OI 
,  X0J 

310  LET  S  = fX-10©0*P-100*Q-10»R> 
32©  LET  £>£1>=P;  LET  Df2J=0r  LET 
D  f  3 3  =R  ;  LET  X>  £41  *5 
36©  FOR  E  =  1  TO  4. 

37©  XF  ©  £E>  <  >6  fE.>  THEN  GO  TO  42 

©  _ _ 

330  PRINT  ** 

320  LET  B  £E3  =B  fEJt  +10 
4.00  LET  O  CE3  =£>  £E3  +20 
410  !  ^  *  HaH  +  1 
420  NEXT  E 

430  XF  H  =4  THEN  GO  TO  630 
440  FOR  F=1  TO  4 
45©  LET  C-=D  CFI 
460  FOR  Gal  TO  4 

470  IF  DoBtG)  THEN  GO  TO  510 
43©  PRINT  **  WHITE"; 

49©  LET  S £G3  =B  £G3  +10 

500  GO  TO  520 

510  NEXT  G 

52©  NEXT  F 

530  FOR  G=i  TO  4 

540  IF  B  £GJ  < 10  THEN  GO  TO  560 

550  LET  B  CG3  =B IG) -10 

560  NEXT  G 

570  LET  H=0 

530  PRINT 

59©  NEXT  C 

500  PRINT  "“VOO  didn't  get  it< 

tl 

*610  PRINT  "The  answer  is  &tm 
;  B  C2i  ;  B  £33  ;B(4i 
52©  STOP 

630  print  '  '  **ye  L  t  done,  Codefejfe 

a  R  e  r  *' 

640  print  '"You  got  the  answer** 
65©  print  "in  just  goes" 


CHAPTER  SIX 
CHANGING  IN 
MID-STREAM 


We  pointed  out  at  the  beginning  of  the  book  that,  in  most 
situations,  your  computer  follows  through  a  program  in  line 
order,  starting  at  the  lowest  line  number  and  following  through 
in  order  until  the  program  reaches  the  final  line. 


This  is  not  always  true.  The  GOTO  command  (it  is  two  words, 
but  they  count  as  a  single  key  word,  and  come  from  the  G  key) 
sends  action  through  a  program  in  whichever  order  you  decide. 


Enter  the  following  program,  and  before  you  run  it,  see  if  you 
can  work  out  what  the  result  of  running  it  will  be: 


X©  GO  TO  5© 

2©  PRINT  “THIS  IS  20 
3©  GO  TO  36 


5S  PRINT  **  THIS  IS  S© “ 
o©  GO  TO  2© 

S©  PRINT  “  THIS  IS  SS 
30  GO  TO  S© 


*  I 


This  rather  pointless  program  sends  the  poor  computer 
jumping  all  over  the  place,  changing  its  position  in  the  program 
every  time  it  comes  to  a  GOTO  command.  Here’s  what  you 
should  see  on  your  screen: 
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THIS  IS  50 
THIS  IS  20 

THIS  IS  S© 

THIS  IS  5© 

THIS  IS  20 

THIS  IS  30 
THIS  IS  50 
i  r.IS  iS  2© 

THIS  IS  30 
THIS  IS  5© 

THIS  IS  20 

THIS  IS  S0 
THIS  IS  30 
THIS  IS  20 

THIS  IS  30 
THIS  IS  30 

The  program  starts  at  line  10,  and  finding  GOTO  50  there, 
moves  on  to  line  50  to  print  out  “THIS  IS  50”.  It  then 
continues  on  to  line  60,  where  it  finds  the  command  “GOTO 
20”.  Without  question,  it  zips  back  to  line  20  to  print  out 
‘  ‘THIS  IS  20’  ’  then  goes  to  line  30  which  directions  it  to  line  80. 
At  line  80,  it  finds  the  instruction  to  print  out  “THIS  IS  80” 
which  it  does.  From  there  it  gets  to  line  90,  and  finds  “GOTO 
50”  which  is  just  where  we  began  ...and  starts  all  over  again. 


RESTRICTIVE  PRACTICES 

Using  GOTO  in  this  way  is  called  unconditional.  The 
command  is  not  qualified  in  any  way,  so  the  computer  always 
obeys  it.  Another  pair  of  words  generally  found  together  on  the 
computer  are  IF  and  THEN.  IF  someting  is  true,  THEN  do 
something  else.  IF  you  are  hungry,  THEN  order  a  hamburger. 
IF  you  want  some  candy,  THEN  behave.  IF  something  THEN 
do  something.  The  next  program,  which  ‘rolls  a  die’  (using  the 
random  number  generator)  and  then  prints  up  the  result  of  that 
die  roll  as  a  word,  uses  a  number  of  IF/THEN  lines: 

IB  REM  DICE  ROULS 
2©  GO  TO  10© 

30  PRINT  ” ONE** 

35  GO  TO  10© 

4-0  PRINT  "TUO” 

AS  GO  TO  1©0 
30  PRINT  “THREE"" 

S3  GO  TO  100 
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S©  PRINT  "FOUR " 
ss  GO  TO  1©© 

79  PRINT  "FIUE" 

75  GO  TO  10© 

S©  PRINT  "SIX" 

1©0  LET  ficINT  fRNDsSJ  +1 
lie  IF  R=1  THEN  GO  TO  3© 

12©  IF  R=2  THEN  GO  TO  4-0 

130  IF  R=3  THEN  GO  TO  S© 

14-©  IF  R=4-  THEN  GO  TO  6© 

15©  IF  R=S  THEN  GO  TO  70 

16©  IF  R=6  THEN  GO  TO  B® 


This  is  what  you’ll  see  when  you  run  the  program: 


TWO 

TJ  JP 
*■  c. 

sxx 

FOUR 

SXX 

TUO 

ON  ci 

PIU£ 

TUO 

FOUR 

THREE 

FOUR 

SXX 

FOUR 

THREE 

TUO 

FIUE 

FOUR 

XWDPP 

a  fff  TA  H  bw 

FOUR 

THREE 


So  we’ve  looked  at  non-conditional,  and  conditional  GO  TO’s 
to  send  action  all  about  the  place  within  a  program. 


ANOTHER  WAY  TO  FLY 

There  is  another  way  to  redirect  the  computer  during  the  course 
of  a  program  by  the  use  of  subroutines .  A  subroutine  is  part  of 
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a  program  which  is  run  twice  or  more  during  a  program,  and  is 
more  efficiently  kept  outside  the  main  program,  than  within  it. 

This  example  should  make  it  clear.  In  this,  the  computer  throws 
a  die  over  and  over  again.  The  first  time  it  is  thrown  the 
computer  is  throwing  for  you.  The  second  time  it  is  for  itself. 
A  fter  each  pair  of  dice  has  been  thrown,  it  will  announce  who  is 
(he  winner  (highest  number  wins).  The  program  uses  a 
subroutine  to  roll  a  die.  Enter  and  run  the  program,  then  return 
io  the  book  and  I’ll  explain  where  the  subroutine  is  within  the 
program  and  how  it  works: 


I©  PAUSE  5© 
a©  FOR  C=1  TO  2 
is©  GO  SUE  1©© 

4-©  XF  0  =  1  THEN  LET  A=D 
50  XF  0=2  THEN  LET 

50  NEXT  C 

T0  XF  &>&  THEN  PRINT  "X  WIN" 

30  XF  R<B  THEN  PRINT  “YOU  UIN” 

90  GO  TO  1© 

100  REH  THIS  IS  SUBROUTINE 
11©  LET  D  =  INT  C  RNX>  *■&  3  +1 

.12©  XF  0  =  1  THEN  PRINT  "X  ROLLED 

i'R  "  ;  D 

13©  XF  0=2  THEN  PRINT  "YOU  ROLL 

E0  A  **;  D 

14-0  PAUSE  30 
15©  RETURN 

This  is  what  you’ll  see  when  you  run  it: 


X  ROLLED 

R 

<6 

YOU  ROLLED 

ft 

mm* 

X  UXN 

X  ROLLED 

ft 

X 

YOU  ROLLED 

ft 

■w 

YOU  UXN 

x  rolled 

ft 

X 

YOU  ROLLED 

ft 

3 

YOU  UXN 

I  ROLLED 

ft 

a 

YOU  ROLLED 

ft 

5 

YOU  UXN 

X  kOLLED 

R 

s 

YOU  ROLLED 

ft 

* 

X  WIN 
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X  ROLLED  R  6 
YOU  ROl_UED  ft  S 
X  WIN 

X  ROLLED  ft  X 
YOU  ROLLED  ft  5 
YOU  WIN 

The  program  pauses  for  a  short  while  on  line  1 0,  and  then  enters 
the  C  FOR/NEXT  loop.  When  it  gets  to  line  30,  which  it  does 
(of  course)  once  each  time  through  the  C  loop,  the  program  is 
sent  to  the  subroutine  starting  at  line  100.  The  ‘die  is  rolled’  in 
line  1 10,  and  the  numeric  variable  D  is  set  equal  to  the  result  of 
the  roll.  The  next  two  lines  print  out  the  result  of  the  roll,  using 
an  IF/THEN  to  determine  whether  the  computer  should  print 
“I  ROLLED  A  ...”  or  “YOU  ROLLED  A  There  is  a 
slight  pause  in  line  140,  and  then  the  computer  comes  to  the 
word  RETURN.  As  we  said  earlier,  the  word  RETURN  signals 
to  the  computer  that  it  must  return  to  the  line  after  the  one 
which  sent  to  the  subroutine.  In  this  program,  the  relevant  line 
is  40,  because  line  30  sent  the  program  to  the  subroutine.  There, 
the  IF/THENs  in  lines  40  and  50  determine  whether  the  value 
of  the  roll  (D)  should  be  assigned  to  the  variable  A  or  to  the  B. 

Line  60  ends  the  FOR/NEXT  loop,  and  then  lines  70  and  80 
determine  whether  the  computer  has  won  (which  it  will  have 
done  if  A  is  greater  than  B,  a  condition  which  is  tested  using  the 
>  sign  in  line  70)  or  whether  the  human  has  won  (which  will 
happen  if  A  is  less  than  B,  a  condition  tested  in  line  80  by  use  of 
the  ‘less  than’  symbol,  <  ).  From  here,  the  program  goes  back 
to  line  10  where  it  starts  again. 


Study  ihisiexample  until  you’re  pretty  sure  you  know  how 
subroutines  work. 


LET’S  ROLL  AGAIN 

You  may  wonder  if  it  is  possible  to  change  the  earlier  program, 
which  changed  the  number  rolled  by  the  die  into  a  word,  using 
subroutines.  The  answer  is  ‘yes’,  although  the  program  with 
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subroutines  is  not  much  shorter  than  the  version  using  GOTO. 
I  lore’s  one  way  it  could  be  done: 


X© 

REM  DICE  ROL.JLS 

GO  TO 

X©© 

3B 

PR  XNT 

ONE  M 

OS 

RETURN 

4.® 

PR  XNT 

*TUO,# 

RETURN 

S© 

PR  XNT 

"THREE"' 

w-  W 

RETURN 

B0 

PR  XNT 

“FOUR*1 

SS 

RETURN 

T© 

PR  XNT 

*TXUEM 

■C 

RETUFtH 

S0 

PR  XNT 

MSIXM 

108  L.ET  flttINT  CRNE»*Si  +1 


.XX© 

IF 

THEN 

GO 

SUB 

3© 

130 

IF 

r>  —» .jC— 

THEN 

GO 

SUB 

13® 

Ij- 

jR 

THEN 

GO 

SOB 

B© 

14.0 

IF 

«=4. 

THEN 

GO 

SUB 

S© 

XS© 

IF 

THEN 

GO 

SUB 

T© 

160 

IF 

JR=© 

THEN 

GO 

SUB 

©0 

XT® 

GO 

TO 

100 

COMPUTED  DESTINATIONS 


Your  computer  is  capable  of  accepting  a  number,  an  assigned 
variable  (such  as  B  when  it  knows  what  number  B  represents)  or 
a  combination  of  these  as  instructions  on  the  line  number  it 
should  go  to.  In  the  previous  program,  you’ll  see  that  the  GO 
SUB  destinations  get  larger  in  a  regular  way,  and  the  number 
rolled  by  the  die  also  increases  in  a  regular  way.  We  can  use  this 
information  to  tidy  up  the  section  from  lines  1 10  to  170  in  the 
previous  program,  so  it  looks  like  this: 


GETTING  STARTED  ON  YOUR  ZX  SPECTRUM 


3.0  REM  DICE  ROLLS 
20  GO  TO  i©0 
3©  PRINT  "ONE*1 
35  RETURN 
4-0  PRINT  "TWO  “ 

4-5  RETURN 
50  PRINT  ’’THREE" 

55  RETURN 
50  PRINT  "FOUR” 

65  RETURN 
70  PRINT  "FIUE” 

75  RETURN 
30  PRINT  ** SIX “ 

100  L.ET  R  =  INT  CRND*5?  +3. 

13.0  GO  SUB  20+10SR 
170  GO  TO  100 

If  you  run  this ,  you  ’  11  see  it  performs  in  exactly  the  same  way  as 
the  longer  version. 

The  program  can  be  further  be  condensed  with  the  use  of 
multiple-statement  lines,  producing  this  effect: 


10  REM  GO  SUB  DICE  ROLLS 
20  GO  TO  90 

30  PRINT  "ONE";  RETURN 
4.0  PRINT  "TWO"  ;  RETURN 
50  PRINT  "THREE";  RETURN 
S©  PRINT  "FOUR";  RETURN 
70  PRINT  "FIUE" :  RETURN 
50  PRINT  "SIX";  RETURN 
90  LET  R=INT  fRNO+SJ +1 
1©0  GO  SUB  20+10 SR 
110  GO  TO  90 


pij  a  ■O'X’xr'D  CT7X7I71VT 
V^JlIxVJl  X  1-jiV  JL  t  J_ii^l 

GETTING  INTO  THE 
MUSIC  BUSINESS 


The  BEEP  command  (in  red  under  the  Z  key)  is  a  great  way  to 
add  life  to  your  program.  It  is  amazing  what  a  little  sound  can 
do  to  enhance  a  program. 


BEEP  is  always  followed  by  two  numbers.  The  first  number  is 
the  length  of  the  note  which  will  sound,  and  the  second  is  its 
pitch.  A  duration  of  1  lasts  about  a  second,  and  the  pitch 
parameter  can  be  anywhere  from  minus  60  to  plus  69.  The  very 
high,  and  very  low  notes,  are  not  totally  satisfactory,  so  you 
may  wish  to  stick  to  the  -  50/  +  50  range.  Here’s  a  program 
which  puts  BEEP  through  its  paces  (you  can  hear  from  it  that  a 
duration  as  small  as  .00S  is  not  too  short  to  be  heard): 


10  REM  BEEP  DEMO 

20  FOR  Ra-58  TO  50 

30  BEEP  . ©08 , R 
4.(3  NE.5.  i  R 
B®  RUM 


As  you  can  combine  more  than  one  command  at  a  time  within 
the  loop  for  an  even  more  effective  result: 


1©  REM  BEEP  DEMO 
fi©  FOR  R=-5@  TO  5© 

3©  BEEP  .008,9:  BEEP  ,008,-R 
4-0  NE5CT  R 
5©  RUN 
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SOUND  ADVICE 

The  control  numbers  for  the  BEEP  command  can  be 
calculations  instead  of  being  numbers  or  simple  variables.  In 
the  next  program,  SOUND  ADVICE,  you  have  to  guess  the 
number  between  one  and  fifty  which  the  computer  has  thought 
of.  The  feedback  on  each  guess  —  which  will  help  you  home-in 
on  the  correct  number  in  the  shortest  possible  number  of 
guesses  —  is  in  the  form  of  BEEPs.  Once  you’ve  played  it  for  a 
few  rounds,  you’ll  learn  to  interpret  the  output  from  the 
computer. 

When  you  manage  to  guess  the  answer,  you’ll  get  this  on  the 
screen: 


Yes,  I  was  thinking  of  4-S 
You  got  it  in  ©  guesses 


Here  is  the  listing  (and  note  that  INK  and  PAPER  in  line  30 
come  from  the  X  and  C  keys  respectively,  BORDER  is  on  the  B 
key,  and  ABS  is  above  the  G  key): 

10  REH  SOUND  RDUICE 
23  LET  R  =  INT  fRND*50>  4-1 
30  PAPER  2 :  INK  7 BORDER  2 :  B 
RIGHT  1:  CL.S 

4-©  LET  GUESS  =  1 

50  PRINT  AT  5,4-;  "This  is  guess 
»  GUESS;*’ 

60  INPUT  "What  number  am  I  thi 
fsking  of?  ";R 

7©  PRINT  RT  0,7;R;  "  ** 

30  IF  R=R  THEN  GO  TO  13© 

90  PRINT  RT  5,4-;  “No ,  R;  "  is 
n nvfc  correct  *■ 

i©0  BEEP  4-GUESS/4/RBS  tR— R> 

110  LET  GUESS  =GUESS  4-1 
12©  GO  TO  50 

13©  Ci_S  :  PRINT  "'"Yes,  I  was 
thinking  of  **;  FI.R5H  l;R 
14.0  PRINT  '""You  got  it  in  ";G 
UESS, "guesses " 
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The  first  line  is,  of  course,  just  a  REM  statement  to  tell  you  that 
name  of  the  program.  The  next  line  generates  a  random 
number  between  one  and  fifty,  and  sets  the  numerical  variable 
R  equal  to  this  number.  In  line  30,  the  computer  turns  the 
background  (PAPER)  to  red,  the  colour  in  which  the  computer 
prints  (INK)  to  white,  and  the  area  surrounding  the  centre  of 
(he  screen,  the  BORDER,  to  red,  the  same  colour  as  the 
PAPER.  The  CLS  at  the  end  of  line  30  clears  the  screen,  to 
establish  the  PAPER  colour.  This  will  be  explained  in  the 
chapter  on  adding  colour  to  your  program. 

Line  40  sets  a  numeric  variable  called  GUESS  to  one,  and  line 
50  prints  up  the  number  of  your  guess  (with  AT  available  on  the 
I  key).  Line  60  accepts  your  guess,  as  variable  A.  If  A  (the 
number  you’ve  guessed)  is  the  same  as  R  (the  number  the 
computer  thought  of  back  in  line  20),  as  the  computer  checks  in 
line  80,  then  the  computer  knows  you  have  guessed  its  number. 

If  you  are  not  right,  then  line  90  tells  you  so,  and  the  following 
line  (100)  gives  you  your  audio  feedback,  with  both  the  length 
of  the  note,,  and  its  pitch,  being  related  to  the  difference 
between  your  number  and  the  computer’s  number.  The 
variable  GUESS  is  incremented  by  one  (that  is,  one  is  added  to 
the  value  of  the  variable  GUESS)  before  the  computer  returns 
to  line  50  to  accept  your  next  guess. 

I  f  you  have  guessed  the  number  correctly  (detected  in  line  80) 
the  program  moves  to  line  130.  The  screen  is  cleared  and  the 
computer  tells  you  the  number  it  was  thinking  of,  and  then  (in 
line  140)  tells  you  how  many  guesses  you  took. 


CHAPTER  EIGHT 
MAKING 
COMPARISONS 


We  all  know  the  equals  sign  ( = )  and  we’ve  seen  it  in  use  in 
several  programs  so  far.  We’ve  also  seen  the  greater  than  (> ) 
and  less  than  (< )  signs.  At  this  point  of  your  learning,  we 
thought  it  would  be  useful  to  briefly  recap  on  what  each  of  these 
signs  are,  and  what  they  mean: 


=  equals 

>  greater  than 

<  less  than 

>  =  greater  than  or  equal  to 

<  =  less  than  or  equal  to 

<  >  not  equal  to 


You’ll  see  these  in  use  in  many  programs  in  this  book,  such  as 
this  next  one,  which  allows  you  to  challenge  the  computer  to  a 
game  of  BRICKBAT,  written  by  Graham  Charlton. 
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I  lere’s  the  scene  at  the  start  of  the  game: 


And  this  is  a  picture  halfway  through  a  not  very  well-played 
round: 
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This  is  the  listing  for  BRICKBAT. 


1©  BORDER  4-:  PAPER  6: 
LS  r  PRINT 


INK  1 


Jt 


30  PRINT  *' 


4.0  FOR  flsi  TO  5 

50  PRINT  INK  RNDJ-4-+1;  INU 

i ;  "XXXXXXXXXXXXXXXXXXXXXXXX 
XX”;  INK  i;  **  ** 

fi©  NEXT  Q 

7©  PAPER  6;  INK  1;  FOR  R=1  TO 


S©  PRINT 


90  NEXT  R 


»■ 
M w 


100  LET  T=10:  LET  SC=0 
105  PRINT  INUERSE  1;  f)T  0,0;*’  LI 
UES  LEFT  T ,  "SCORE  SC- , 

11©  LET  C=-l ;  LET  D  =  -l;  LET  X=1 
9  LET  V  =  I  NT  tRN2*l©3  +1©,-  LET  M  - 

y 


12©  IF  SCREENS  fX,YJ  =**X"  THEN  L 

ET  C=-C :  LET  SC=SC+1 :  BEEP  .@08. 

S@r  PRINT  RT  0 ,22;  INVERSE  I; SC; 
** 


13©  IF  X>2©  THEN  GO  TO  S3© 

14.0  PRINT  RT  X,Y;**0" _ 

150  PR  TNT  RT  21,M;  “  ** 

16©  LET  H=W+IINKEY$=”M"  AND  M<2 
6J -fINKEY$="Z"  RND  H>0) 

170  IF  X+C<2  THEN  LET  C=~C.-  BEE 
P  •  005  >  0 

1S0  IF  X=20  THEN  IF  Y  >  =M  THEN  I 
J=  Y{=M+S  THEN  LET  C  =  -C  ;  BEEP  -00 

m|F  Y+&<1  OR  Y+I>>3©  THBN  LET 
0  =  -D  7u  BEEP  -  ©©5  ,  © 

20©  rPRINT  RT  X,V;  ~  ~ 

21©  liagr  X=X+C.*  LET  Y  =Y+D 
S3®-  "Sfi^TO  12© 

230  LEf/  J=T-1 :  LET  C  =  -C:  FOR  R  = 
1  TO  SiT;  BEEP  - 0©B , R :  BEEP  «0©S 
. S@ LR -  NEXT  R 

‘24-0  PRINT  RT  0,0;  INUERSE  1;  BR 
IGHT  1;  “  LIUES  LEFT  ";T,’‘SCORE  " 

25©  PRINT  RT  21 , M; ” 

26©  IF  T>0  THEN  GO  TO  110 

270  BEEP  „00S,RNI>*50:  GO  TO  270 
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In  BRICKBAT,  you  use  the  M  and  Z  keys  to  move  the  little 
black  slide  at  the  bottom  of  the  screen  back  and  forth, 
bouncing  the  ball  off  it  (if  you  can).  As  the  ball  bounces  up  to 
the  coloured  X’s  above,  it  will  strike  them,  making  a  sound, 
adding  your  score  and  causing  the  ball  to  disappear.  You  have 
ten  balls  per  round.  It  is  fascinating  to  see  what  happens  if  the 
ball  gets  momentarily  ‘trapped’  inside  the  bricks,  bouncing  off 
them  wildly,  before  it  finds  a  way  out  and  down.  You’ll  see  how 
effective  this  can  be  when  you  run  the  program. 

Notice  that  our  ‘comparison  symbols’  (less  than,  and  the  rest) 
are  used  frequently  in  this  program .  They  perform  a  number  of 
tests  in  conjunction  with  IF/THEN  statements,  bouncing  the 
ball  off  the  slide  at  the  bottom  of  the  screen,  the  walls  or  the 
bricks,  deciding  when  the  ball  has  missed  the  slide,  and 
continuing  the  game  if  (in  line  260)  you  still  have  a  ‘life’  (that  is, 
ball)  left.  The  program  ends  in  line  270  with  an  endless  series  of 
randomly  chosen  BEEPs.  You’ll  need  to  press  BREAK  to  get 
out  of  the  program. 

The  words  AND  and  OR  are  also  used  in  comparison  lines, 
chaining  two  or  more  tests  together,  as  in  lines  160  and  190. 
They  work  as  follows: 

AND  The  computer  does  what  follows  the  THEN  if 

both  of  the  conditions  chained  by  the  AND  are 
true 

OR  The  computer  carries  out  the  instruction 

following  the  THEN  if  either  of  the  conditions 
are  true. 

Let’s  see  how  this  works  in  practice.  In  line  1 60,,  tfae! computer 
checks  to  see  IF  you  are  passing  the  M  key  AND  if-M  is  less  than 
26,  and  if  both  these  conditions  are  true,  moves  the  slide  one 
square  to  the  right .  Line  1 90  bounces  the  ball  off  the  side  walls. 
It  checks  to  see  if  the  ball  is  about  to  hit  the  left  wall  (IF 
Y  +  D<  1 )  OR  is  about  to  hit  the  right  wall  (IF  Y  +  D>  30)  and  if 
either  of  these  conditions  is  found  to  be  true,  the  computer 
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‘bounces’  the  ball,  by  changing  the  value  of  D,  the  variable 
which  determines  the  change  in  the  position  of  the  ball  across 
the  screen  from  move  to  move. 


CHAPTER  NINE 
TWO  GAMES  AND  A 

GPCPTI  TPCT 


It’s  time  now  to  take  a  break  from  the  serious  business  of 
learning  to  program  the  computer.  As  you  can  see  in  this 
chapter,  we  have  a  couple  of  major  programs,  which  use  many 
commands  that  have  not  yet  been  explained.  We  suggest  you 
enter  the  programs  just  as  they  are,  play  them  for  your  own 
enjoyment,  then  come  back  to  the  explanations  which  follow 
the  listings  after  you  have  mastered  the  rest  of  the  book.  We  do 
not  think  it  is  fair  to  keep  you  waiting  for  major  programs  until 
you’ve  covered  everything  on  the  computer,  so  have  decided  to 
supply  you  with  these  programs  at  this  point,  and  hope  you’ll 
enter  them  ‘on  trust’,  returning  to  this  chapter  for  the 
explanations  when  you  feel  you  are  ready.  Of  course,  you  do 
not  have  to  enter  the  programs  right  now.  If  you’d  prefer  to 
continue  with  the  learning,  then  move  straight  along  to  chapter 
ten. 

PLAYING  ALONE 

Our  first  listing  allows  you  to  use  your  computer  as  a  solitaire 
board.  It  is  believed  that  Solitaire  was  invented  by  an 
imprisoned  nobleman  in  France  in  the  late  16th  century,  and 
was  brought  into  England  in  the  closing  decade  of  the  18th 
century. 

The  aim  of  the  game  is  simple  to  explain,  but  not  so  easy  to 
achieve.  You  start  on  a  board  which  has  33  positions  marked. 


60 


GETTING  STARTED  ON  YOUR  ZX  SPECTRUM 


There  are  ‘pegs’  in  32  of  the  positions  on  a  real  board,  and  the 
middle  position  is  empty. 


This  is  the  Solitaire  board  when  you  first  run  the  program.  The 
black  centre  square  is  the  ‘hole’: 

gs  moves  so  far 


After  two  moves: 


.  ^  .  -f ■  J 

’Jk&k 


kkkkkk'k  -  3 


■kkkkkk  -  s 


— o 

^7 


S  moves  so  far 


1334-56? 

_2. 
-a 

-3 

iAwSEwat*  ^ 

A  \3 

kB&k  —6 
SSESt  -? 


There  are  pegs  on  the  board 

The  little  man-like  figure  represents  the  pegs,  and  the  black 
square  in  the  middle  of  the  screen  is  the  empty  spot.  To  play, 
you  simply  jump  over  any  of  your  pieces  vertically  or 
horizontally,  so  that  you  end  up  in  an  empty  position.  The  piece 
which  you  have  jumped  over  is  removed  from  the  board.  The 
aim  of  the  game  is  to  end  up  with  just  one  little  man  in  the  centre 
position. 
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As  you  can  see,  you  are  told  the  number  of  the  move,  and  how 
many  pieces  are  left  on  the  board.  You  move  by  entering  the  co¬ 
ordinates  of  the  piece  you  want  to  move,  using  the  number 
down  the  side  first,  followed  by  the  number  across  the  top. 
These  are  entered  as  a  single,  double-digit  number.  If  you 
wanted  to  move  the  piece  which  was  two  positions  below  the 
central  hole  at  the  start  of  the  game,  jumping  into  the  central 
position,  you’d  enter  64,  then  press  ENTER,  followed  by  44, 
and  ENTER  again.  The  board  is  reprinted,  colourfully  and 
musically,  and  you  are  then  offered  another  move. 


tl*  3D 


.x,£0+RN&#20:  IF  fl«B) 


J- 


LET  R  Cfi.1  = 


This  is  the  listing  of  the  Solitaire  program: 

3.0  REM  SDL  ITRIRE 
20  GO  SUB  268 
30  GO  SUB  188 
4-0  REM  RCCEPT  HOUE 
5©  INPUT  "Uhi ch  peg  do  you 

X  to  fiove?  *“ ;  R 

S©  BEEP  «  1/RNI>*2©*20:  IF  R  <fli  < 
>  14-4-  THEN  GO  TO  58 

7©  INPUT  TRB  5;  tR> ; ”  to  whs  rs ? 

*  1  w 

S©  BEEP  . 3 

>E  THEN  GO  TO  70 

90  LET  ft  i  (R+-&)  x£>  = 

E;  LET  R  (B>  =  14-4- 
100  LET  + 1 

110  LET  COUNT =© 

120  FOR  F  —11  TO  75 
130  IF  R  t'F.I  =14-4-  THEN  LET 
COUNT  +1 
14.0  NEXT  F 

15©  GO  SUB  IS© 

IS©  IF  COUNT  =  1  AND  R  (4-4-) 

EN  PRINT  FLRSH  1 ' 'TfiB  5; 
it  in  ";MOUEj“»OVe£!'‘:  S 
17©  PRINT  RT  18/8; "There 
INVERSE  1;  “  “/COUNT;**  **; 

E  ©;*’  pegs  on  the  board  : 

^-© 

' IS©  REM  PRINT  OUT 
19©  PRINT  RT  7/S;  INK  4-; 

”” ;  RT  14- / 13;  '•  -7"; RT  S/S; 

20©  FOR  B  =  11  TO  75 

21©  IF  D-10S-IINT  £0/10)  J  =B  THEN 
LET  D=D+2:  PRINT  INK  4-;  **-**;  INT 
(D/10) -l; TRB  6;:  GO  TO  230 


COUNT 


=  14-4-  TH 
Yito»-  did 


u 


IN VERS 
GO  TO 


1234-56 
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cZD 


5© 


ft  ID)  =14-4-  THEN  BEEP 


216  if  rid.v=e  then  beep  .©4-,rnd 

■¥■5 

as©  PRINT  INK  (RNDJ5+1) * Ift CD) =  1 
44-)  ;  CHR$  (R  CD)  )  ; 

S3©  NEXT  I> 

S 4-0  PRINT  ftT  3,2;  PAPER  RNDf7, 
INK  Qs  ”  HOME;  “  soves  so  far 

250  RETURN 

260  BORDER  2-  PRPER  7:  BRIGHT  I 
:  INK  2:  CDS  ;  DIN  ft  C67) 

270  LET  B  =32 ;  LET  ft =14-4-;  LET  E  = 
14-3 

280  FDR  0*11  TO  75.*  IF  D-10SCIN 
T  (0/lD.i  )  =3  THEN  LET  D=D+3 
220  READ  ft (Di 
300  NEXT  D 
31©  LET  MDUE=0 
320  FOR  2=0  TO  © 

330  REftD  X 

34-0  POKE  U5R  "ft"  +Z, X 
34-S  NEXT  Z 
35©  RETURN 


36©  DftTR  BJB„ftyft,ft#BJ.B 
37©  DftTft 

3S0  DRTfi  ft,ft,ft,ft,ft,ft#fi 
32©  DftTft  ftift^ft^E^ft/ft^R 
4-0©  DftTft  ft, ft, ft 

4-10  DftTft 

4-2©  DftTft  B,B,R,fi,fi 

4-30  DftTft  28,53,73,62,58(54,99,0 


The  program  works  as  follows.  Line  20  sends  action  to  the 
subroutine  from  line  260  which  sets  up  the  requirements  for  the 
start  of  the  game.  The  BORDER  is  set  to  red,  the  PAPER  to 
white,  and  BRIGHT  is  turned  on.  Specifying  INK  9  allows  the 
computer  to  choose  the  most  effective  INK  colour  for  the 
PAPER  you’ve  chosen.  The  screen  is  cleared,  and  the  A  array  is 
dimensioned  to  hold  the  board.  Three  variables  are  initialised: 
B  to  represent  a  space,  A  for  the  man-like  figure,  and  E  for  the 
black,  central  square.  The  loop  in  lines  280  to  300  reads  the 
DATA  from  lines  260  to  420  to  get  the  positions  for  the  start  of 
the  game. 

Character  144  is  the  first  user-defined  graphic  (‘  ‘A’  ’)  and  this  is 
set  up  with  the  loop  from  lines  320  to  345,  using  the  DATA 
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from  line  430.  Note  that  you  get  USR  from  the  L  key,  and 
READ  and  DATA  from  the  A  and  D  keys  respectively. 

TESTING  YOUR  SPEED 

Our  next  program,  REACTION  TESTER,  is  much  shorter 
lhan  Solitaire,  but  just  as  much  fun  to  play.  You  enter  the 
program,  press  RUN,  and  the  message  STAND  BY  appears. 
After  an  agonizing  wait,  STAND  BY  will  vanish,  to  be  replaced 
with  a  flashing  notice:  “OK,  PRESS  THE  ‘Z’  KEY’ ' .  As  fast  as 
you  can,  you  leap  for  the  Z  key,  and  press  it,  knowing  that  the 
computer  is  counting  all  the  time. 

The  computer  then  tells  you  how  quickly  you  reacted,  and 
compares  this  with  your  previous  best  time.  “BEST  SO  FAR 
IS... .”  appears  on  the  screen,  and  the  computer  then  waits  for 
you  to  take  your  hands  off  the  keyboard,  to  prevent  cheating 
(as  if  you’d  try  to  cheat  on  your  computer),  before  the  whole 
thing  begins  again.  As  well  as  printing  out  your  best  score,  the 
computer  also  prints  out  a  long  red  bar,  the  length  of  which  is 
related  to  your  best  scores,  to  give  you  an  easy-to-read 
indicator  of  how  well  you’re  doing.  The  game  continues  until 
you  manage  to  get  your  reaction  time  down  to  below  five, 
which  is  not  an  easy  task. 


Here  is  the  listing  of  REACTION  TEST: 

5  REM  REACTION  TEST 
LET  HI  SCORE  =1000 
15  RANDOMIZE  :  DIM  132) 
20  PRINT  AT  5,5; "STAND  BY 

t  t 


3©  FOR  A=1  TO 
4-©  NEXT  A 
5©  PRINT  AT  5 
2;  PAPER  6; “OK, 

Y" 


2©0 +RND *500 

,5;  FLASH  1;  INK 
PRESS  THE  'Z'  KE 


S©  LET  COUNT  =® 

7©  LET  COUNT =COUNT+l 
9@  LET  AS* INKEY J 
10©  IF  THEN  GO  TO  70 

11©  PRINT  *  *  “YOUR  SCORE  WAS  **;  C 
OUNT;  ** 


64 


GETTING  STARTED  ON  YOUR  ZX  SPECTRUM 


12®  IP  COUNT <HI5COR£  THEN  LET  H 
ISCORE  = COUNT ;  BEEP  1 , COUNTS  t COUN 
T  <6@) 

130  PRINT  RT  0,©;B4;  INK  1;  INU 
ERSE  1;  "  BEST  SO  FRR  IS  **;HISCOR 
E;  "  RT  ©,©;  INK  2j  BJ$  i  TO  HISCO 
RE*  I'HISCORE  <323  3 
135  IF  HI5CORE <5  THEN  GO  TO  IS© 
14-0  IF  INKEY  $<>****  THEN  GO  TO  14^ 

0 

IS©  GO  TO  2© 

IS©  FLRSH  1:  INK  2:  PRPER  S:  CL 

s 

IT©  PRINT  . .  YOU'RE  THE  CH 

RHP l  i  " 

Line  20  sets  the  variable  HISCORE  to  1000,  and  after  the 
random  number  generator  is  seeded  in  line  15,  a  string  array, 
(b$)  is  dimensioned.  When  you  dimension  a  string  array, a 
string  of  the  same  name,  just  filled  with  spaces,  is  created. 
Following  DIM  B$  (32)  with  a  command  to  PRINT  B$  would 
get  the  computer  to  print  up  a  line  of  32  spaces.  The  only  way 
you  could  see  would  be  to  PRINT  them  with  INVERSE  1 ,  so 
that  a  solid  bar  would  be  printed .  In  line  1 30,  the  computer  uses 
B$  to  blank  out  everything  on  the  top  row,  before  the  words 
BEST  SO  FAR  IS....  are  printed  on  the  following  line.  Then, 
the  end  of  that  line  prints  a  solid  red  bar  (using  B$  (TO 
HISCORE  *HISCORE<  32))  as  you  can  see)  which  print  s  a  bar 
related  to  your  best  score,  so  long  as  this  best  score  is  lower  than 
32. 


The  variable  COUNT  is  set  to  zero  in  line  60  and  incremented 
by  one  every  time  line  70  is  revisited,  because  you  have  not  yet 
managed  to  get  to  the  Z  key.  Line  100  checks  to  see  if  you  have 
touched  the  Z  and  if  not,  sends  the  program  back  to  70  where 
COUNT  is  incremented. 

Once  you  have  managed  to  get  to  Z,  the  program  ‘falls 
through1  to  line  100  where  you  are  told  your  score.  This  is 
compared  with  the  best  score  (variable  name  HISCORE)  in  the 
following  line,  and  HISCORE  is  adjusted  to  COUNT  if 
COUNT  is  the  lower  of  the  two.  A  BEEP  sounds,  related  to 
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your  score  on  that  particular  round.  The  lower  the  tone,  the 
better  you  did. 

The  next  line  (135)  checks  to  see  if  you  have  managed  to  get  a 
score  lower  than  five,  and  if  you  have,  directs  the  computer  to 
line  160  where  the  YOU’RE  THE  CHAMP!!!  message  is 
displayed.  If  not  line  140  waits  until  you  have  taken  your 
fingers  off  the  keyboard  and  line  150  directs  the  program  to 
line  20,  where  the  next  round  is  played  out.  You’ll  have  few 
problems  getting  a  score  of  15  or  so,  but  to  get  it  below  five  is 
extremely  difficult. 

A  CORNER  ON  GO 

Our  next  program  is  a  fascinating  one.  It  allows  you  to  play 
against  the  computer  in  the  Japanese  board  game  Hasami 
Shogi.  Whereas  the  board  games  with  which  you  might  be 
familiar  —  such  as  Chess  and  Checkers  —  are  played  on  an 
eight  by  eight  board,  Hasami  Shogi  is  played  on  a  nine  by  nine 
board.  The  corner  of  a  Go  board  (19  by  19)  is  often  used. 

Each  player  starts  the  game  with  18  stones.  Your  stones  are 
rounded,  and  the  computer’s  stones  are  square.  You  start  at 
the  bottom  of  the  board  playing  up  the  screen,  and  the 
computer  starts  at  the  top.  The  aim  of  the  game  is  to  capture 
seven  of  your  opponent’s  pieces.  Actually,  in  the  real-life 
Hasami  Shogi,  the  aim  of  the  game  is  to  capture  all  of  your 
opponent’s  pieces,  but  —  as  you’ll  see  when  you  play  this  game 
— that  would  make  each  round  last  a  long,  long  time.  This  may 
be  satisfactory  when  you’re  playing  against  another  human 
being,  and  can  chat  as  the  game  proceeds,  but  you’ll  find  it 
takes  far  too  long  to  complete  a  game  when  playing  against  the 
machine.  Therefore,  we’ve  changed  the  aim  of  the  game  so  that 
each  of  you  is  trying  to  capture  seven  of  your  opponent’s 
pieces. 

You  take  it  in  turn  to  move,  and  you  can  move  only  one  piece 
per  turn.  You  move  vertically  or  horizontally,  but  not 
diagonally.  With  each  move,  you  have  three  choices: 
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—  you  can  move  into  a  vacant  square  which  is 
above,  below  or  beside  your  piece 

—  you  can  jump  over  one  of  your  own  pieces  in 
a vacant  square 

—  you  can  jump  over  an  opponent  piece  into  an 
empty  square 

Unlike  Checkers,  a  piece  which  has  been  jumped  over  is  not 
captured,  and  is  not  removed  from  the  board.  The  only  way 
you  can  capture  a  piece  is  by  moving  so  that  your  piece  traps 
a  computer  piece  between  two  of  yours.  It  captures  your 
piece  in  a  similar  way.  You  do  not  lose  your  piece  simply  by 
moving  in-between  two  computer  pieces.  Therefore,  you  aim 
to  get  your  piece  next  to  a  computer  piece,  with  an  empty 
square  beyond  that,  so  you  can  move  into  the  empty  square 
on  a  subsequent  move. 

Observing  a  game  in  action  is  perhaps  the  best  way  to 
understand  it. 

Here  are  some  stages  in  a  game  of  Hasami  Shogi  played 
against  the  computer: 

X  am  considering  square  h? 


COMPUTES :  0 

HUMSI4:  0 
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X  a«  considering  square  Ei 


COMPUTER  r  © 
HUMfiN :  © 


COMPUTER ;  © 

HUMRN :  0 
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X  as»  considering  square  G5 


COMPUTER:  @ 
HUMAN :  © 


X  an  considering  square  X? 


COMPUTER :  X 
HUMRN ;  © 
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x  an  considering  square  Dl 


i**  **«•»*» 

mss-s-sfeS' 
*■*■»•** 
:*  *  IF  IK  IB  *  *■  * 


!#*#****#• 

I********* 


C-OHPUTER :  5 


HUHRN :  X 


os*  *  ■*■*■*  *  «■* 

*«*a*ffi*R 

3L  aint  TTlff  v* 

***•*; 

i****#  *4*  fetoss 
1$  *#■#•-£**■* 

I*  *•■$•*  *■**♦•> 

ia  *  *  **^^^^. 


COHPUTcF^:  ? 

HUHRN :  6 

I  UXN 

Next  is  the  listing  for  Hasami  Shogi,  and  after  the  listing 
we’ll  explain  how  the  program  works. 
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2.0  REM  HRSflHI  SMOG  I 
2©  GO  SUB  630 
3©  GO  SUB  50 
4-©  GO  SUB  360 
5©  GO  SUB  53.0 
6©  GO  SUB  SB© 

70  GO  TO  3© 

60  REM  CRPTURE 

65  PRINT  AT  0,0; **l  am  consider 

in g  square**  _ 

90  FOR  ft =99  TO  11  STEP  -1:  LET 
O  =  XNT  tfi/10)  :  PRINT  RT  0,24-;  CHR 
$  C64-+03  ;  A-10+O 

100  IF  ft  JR?  <>C  THEN  GO  TO  14-0 
112  IF  R  Cft-103  =E  THEN  IF  R  Cfi-9? 
=H  THEN  IF  Rtfi-8) =C  THEN  BEEP  1, 
50:  LET  B=fi-i0:  GO  TO  260 

115  IF  fi{ft-103=E  THEN  IF  ft Cft-11 
3  =H  THEN  IF  fttft-123=C  THEN  BEEP 
1,50:  LET  B=ft-10:  GO  TO  260 

116  IF  ft (ft-103  =E  THEN  IFRtfi+il 
>  =H  THEN  IF  ft  (ft +123  =C  THEN  BEEP 
1,50:  LET  B=fi -10:  GO  TO  260 

117  FOR  B=1  TO  4:  IF  ft+2*CCB3 <1 
1  OR  ft +2*0 CB) >99  THEN  GO  TO  130 

120  IF  ft (A+C  CB3 3 =E  AND  fttft+2*CC 
B3  3  =H  RNO  ft  (R+3fC  CBJ  3  =C  THEN  GO 
TO  260 
130  NEXT  B 

14-0  NEXT  ft:  PRINT  RT  0,0;** 

II 

150  REM  NON -CRPTURE 
16©  LET  COUNT=0 

17©  LET  COUNT = COUNT +1 :  BEEP  ,00 
7  ,  COUNT  ^4- 

160  LET  ft=INT  tRND+693  +11 
190  IF  fttft) «C  THEN  BEEP  .©5,1: 
GO  TO  220 

200  IF  COUNT <20©  THEN  GO  TO  170 
210  PRINT  RT  0,0; “Hasani  Shogi 
©aster  I  give  you  th 

e  victory":  STOP 
220  FOR  5=1  TO  4- 

222  IP  R+2+CCB3  <11  THEN  GO  TO  2 

30 

225  IF  {ft  tft+C  tBJ  3  =C  OR  fttft+CCBJ 
3  =H3  ftN£>  ft  (A+2*C  (B)  3  =E  THEN  LET 
B=ft+2*CCB3:  GO  TO  260 
23©  PRINT  ftT  0,0; CHR$  tft Cft+C fB3 
) )  :  IF  ft  tft+C  CB3  3  =E  THEN  GO  TO  26 
0 
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24-0  NEXT  B 
as@  GO  TO  300 

260  REM  COMPUTER  MOVES 
27*0  LET  B=R+C  CB) 

25®  PRINT  RT  ©,0;"l  stove  fTOffi  ** 

;  C-HRS  (64-  +  INT  );  R-10+XNT  { 

R/i®‘  ;  "  t  o  ” ;  CHR$  (S4-  +  INT  CBX10) 

) ;  b-i©*int  (Bxl©)  ;  ** 

14 

290  LET  fl(B)sC;  LET  R  (fl)  =E 
300  IF  R(B  +  1)=H  RND  R (B+2) =C  RN 
D  INT  ( (B+2) XI0) =INT  (B/10)  THEN 
LET  RtB+I)=E:  LET  CS=CS+1 
310  XP  R  (B-l)  =H  RND  RCB-2)=C  RN 
D  XNT  (  (B-2)  /I®.i  =  INT  {B.-'IO?  THEN 
LET  RIB-1) =E:  LET  C5=CS+1 
32©  IP  R  > B9  OR  R  <29  THEN  RETURN 

330  IP  fl (B  +  ieS  =M  RND  R (B+2©) =C 
THEN  LET  fl(B+l®3=£:  LET  C5=CS+1 
34-0  IP  RIB-10)  =H  RND  RCB-20i  =C 
THEN  LET  R(B-1©)=E:  LET  CS=C5+1 
35©  RETURN 

360  REH  BOARD  PRINTOUT 

37®  BEEP  1 , RNDf2S :  PRINT  RT  ©,© 

*.  t-t  **  - 

;RT  2,4-;  BRIGHT  1;  XNVERSE  1;  ”12 
34-56769” ;  INVERSE  0;  RT  3,3; 

375  FOR  M  =90  TO  10  STEP  -10:  PR 
INT  TRB  3;  INVERSE  1; CHR$  (M^10+ 
64.)  ;  INVERSE  ©; 

*s»a  cno  m-i  th  q 

4-00  PRINT  BRIGHT  1;  INK  M/3©;  CH 
R$  R  (H+N)  ; 

4-1©  NEXT  N 

4-20  PRINT  INVERSE  1;  CHR$  tH/10 
+64-) 

4-30  NEXT  M:  PRINT  TRB  4-;  XNVERS 
E  1;  BRIGHT  1;  “1234-567B9" 

4-4-0  PRINT  '  '  'TRB  3;  “COMPUTER:  " 

;  cs 

4-5©  PRINT  'TRB  3;  “HUHRN:  ”;HS 
4-60  IP  CS >6  OR  HS>6  THEN  GO  TO 
4-8© 

4-70  RETURN 

4-B0  IP  CS  >HS  THEN  PRINT  '"I  WIN 
>*  .  ATnp 

4-90  PRINT  '  “YOU  WIN” 

500  STOP 

510  REM  PLRYER  MOVE 
520  INPUT  “PROM  (LETTER, 


NO*  )  7 
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**,-  R$ 

525  I F  fis  =  ,*5*r  THEN  STOP 

530  INPUT  "FROM  CR$)  ;  **  TOT  **; 

54-0  LET  fl=18s  (CODE  R$~64-3  +ORL  R 
S  C23 

55©  LET  e=l©*CCOD£  B$-S43  +URL  B 
$  (S3 

5SS  LET  RCB)=H:  LET  R CR)  *E 
57®  IF  RCB  +  i)=C  RND  R (B+2) =H  RN 
D  I  NT  C  (B+23  X103  =INT  CB^10)  THEN 
LET  fi (Bfi) =E :  LET  HS=H5+i 
SB©  IF  RCB-1)=C  RND  R CB-2) =H  RN 
D  I  NT  {  CB-2)  X10)  =INT  f  B.^103  THEN 
LET  R CB-I) =E:  LET  H5=H5+1 


59©  IF  B>79  THEN  RETURN 
600  IF  RfB+i®) =C  RND  R CB+20) =H 
THEN  LET  R  CB 4-103  =E;  LET  H5=HS+1 
S©5  IF  B  <31  THEN  RETURN 
610  IF  RCB-1©3=C  RND  R IB— 203 =H 
THEN  LET  fi  CB-10)  =E :  LET  HS=H5+1 
620  RETURN 
630  REM  INITIRLI5E 

640  DIM  RC123):  DIM  CC4):  LET  H 
=  14-4-:  LET  0=145:  LET  E=42 
66©  FOR  2=11  TO  23 
670  IF  Z=20  THEN  LET  Z=21 
6S©  LET  R  CZ)  =H 
63©  NEXT  Z 
70©  FOR  Z  =31  TO  73 

710  IF  10* INT  CZ710)  =Z  THEN  LET 
Z=Z+I 

?Ofl  1  FT  Q  (71  -p 
r  (PH?  L>£*  I  ri  4 Z,  ■f 

73©  NEXT  Z 

74-0  FOR  Z  =81  TO  93 

750  IF  Z=3©  THEN  LET  Z=91 

760  LET  R  CZ) =6 

770  NEXT  Z 

760  LET  HS=© 

790  LET  CS=0 

610  FOR  «J=0  TO  1 

820  LET  M =14-4+0 

830  FOR  K  =0  TO  7:  RERD  N 

©4©  POKE  USR  fCHR*  M>  +K,N 

©5©  NEXT  K 

860  NEXT  U 

870  FOR  Z=i  TO  4 

888  RERD  C CZ) 

830  NEXT  Z 
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90B  DfTFfi  56  #  ±24  ,  126 1 126  ,  126  >  124 
'918  DRTR  ©  /  125  *  126 1 126  *  126 1  126  * 

3.26,8 

920  DfiTR  — 10  *  —  1  j>  1  ji  10 
930  GO  SUB  360 
940  RETURN 

The  program  listing  may  seem  very  long,  but  it  is  somewhat 
simpler  to  understand  that  it  may  appear  at  first  sight.  This  is 
because  it  has  been  written  in  ‘modules’ ,  each  of  which  is  called 
by  a  GOSUB  near  the  start  of  the  program.  Programming  in 
this  way  is  a  good  idea  if  you  are  developing  a  program  which 
could  be  fairly  long  and  involved,  as  it  enables  you  to  keep  track 
of  what  each  section  is  doing.  As  well,  it  is  easy  to  track  down 
bugs  (the  common  computer  word  for  a  program  error,  and 
named  after  a  malfunction  in  an  early  IBM  computer  which 
was  found  to  have  been  caused  by  a  moth  which  was  caught 
inside  the  cabinet)  if  the  program  is  in  modules,  as  the  module 
which  contains  the  bug  should  be  relatively  easy  to  isolate. 

The  idea  of  programming  in  ‘modules’  in  this  way  is  perhaps 
easier  to  understand  if  we  show  how  it  has  worked  in  this 
program. 

Line  20-GOSUB  630:  This  sends  the  program  to  the  subroutine 
which  sets  up  all  the  starting  variables.  This  kind  of  a 
subroutine  is  often  called  the  initialisation  subroutine. 
On  returning  from  the  subroutine,  the  computer  gets 
the  instruction  to  GOSUB  80. 

GOSUB  80:This  is  the  subroutine  which  determines  the 
computer’s  move.  The  computer  moves  first  in  this 
game.  Firstly,  in  the  lines  from  80  to  130,  it  goes 
through  the  board,  square  by  square,  looking  for  a 
potential  capture.  It  does  not  take  very  long  to  do  this, 
but  keeps  you  occupied  all  the  same  by  telling  you,  via 
the  message  “I  am  considering  square...,”  at  the  top  of 
the  screen  where  it  will  next  move  from  this  point. 

If  a  capture  has  not  been  found,  the  computer  blanks 
out  the  top  line  (the  one  that  says  ‘‘I  am 
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considering...”)  with  line  140  and  then  moves  into  its 
routine  for  looking  for  a  non-capture  move.  Here,  it 
sets  the  variable  COUNT,  which  counts  the  number  of 
moves  it  has  selected,  to  zero  to  start  with,  and  then 
adds  one  to  it  in  line  170,  adding  a  BEEP  whose  pitch  is 
related  to  the  number  of  moves  it  has  examined.  Line 
180  chooses  a  square  on  the  board  at  random  —  the 
squares  are  held  in  an  array,  the  A  array,  and  are 
numbered  from  1 1  to  89  —  and  then  checks  to  see  if  it 
has  one  of  its  own  pieces  on  that  square.  The  variable 
C  indicates  one  of  its  own  pieces.  If  it  finds  one  there, 
it  gives  a  triumphant  BEEP,  and  moves  to  line  220  to 
make  the  move. 

If  not,  the  program  checks  that  it  has  not  yet  selected 
200  moves  (that  is,  it  checks  that  the  variable  COUNT 
is  less  than  200)  and  if  it  finds  that  it  is,  sends  the 
action  back  to  line  1 70,  where  one  is  added  to  COUNT, 
and  a  new  square  is  selected  in  line  180.  If  it  tries  200 
numbers  at  random,  and  does  not  find  one  of  its  own 
pieces  —  a  most  unlikely  situation  —  it  will  concede  the 
game  with  line  210. 

However,  if  it  finds  one  of  your  pieces  (in  line  190)  the 
program  goes  to  the  routine  from  line  220,  where  it 
tests  the  square  located  for  a  move,  using  elements  of 
the  B  array,  which  represent  potential  moves  from  each 
square.  Jumps  are  given  priority  over  single  moves. 

If  a  move  has  been  found,  the  move  is  printed  at  the 
top  of  the  screen  by  line  230,  and  the  program  then  goes 
to  line  260.  If  not,  line  250  sends  the  program  back  to 
line  200,  where  another  piece  is  located  to  consider  for 
moves. 

The  actual  move,  and  the  result  of  that  move,  is  made 
in  the  lines  from  260.  You  are  told  the  move  the 
computer  has  made,  by  line  280,  and  the  move  itself  is 
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made  in  line  290.  Lines  300  through  to  340  process  the 
move,  taking  any  captured  pieces  off  the  board.  Line 
350  returns  the  program  to  line  40. 

Line  40  -  GOSUB  360:  The  routine  from  line  360  prints  out  the 
board.  This  subroutine  is,  of  course,  visited  after  each 
move,  whether  by  the  computer  or  the  player,  to 
update  the  board.  Line  460  checks  to  see  if  either  player 
has  managed  to  capture  more  than  six  of  the 
opponent’s  pieces,  and  if  so,  goes  to  line  480  to  print 
out  the  name  of  the  winner.  If  not,  the  board  printout 
subroutine  is  exited  via  line  470,  and  the  program 
returns  to  line  50. 

Line  50  -  GOSUB  510:  We  hope  by  now  you  are  working  out 
how  the  modular  idea  is  applied.  A  series  of 
subroutines,  each  of  which  carries  out  a  specific  task,  is 
called  over  and  over  again  as  the  program  progresses 
from  a  small  number  of  lines,  which  the  program  loops 
through  time  and  again.  Even  if  it’s  not  100%  clear 
now,  it  should  be  by  the  time  we  finish  the  explanation. 
Anyway,  this  subroutine  from  line  510  —  as  the  REM 
statement  explains  —  allows  the  player  to  enter  his  or 
her  move  (terminating  the  program  if  the  player  enters 
“S”  for  stop)  in  lines  520  and  530,  translates  the  letter 
and  numbers  of  the  player’s  “to”  and  “from”  squares 
into  numbers  which  the  computer  can  apply  to  the  A 
array,  and  then  makes  the  relevant  changes  in  the  loop 
through  to  line  620,  where  the  RETURN  sends  .Mb 
program  back  to  line  60. 

Line  60  -  GOSUB  360:  This  line  sends  the  program  back  to  the 
subroutine  which  prints  out  the  board,  to  reflect  the 
changes  introduced  by  the  player’s  move. 

Line  70  -  GOTO  30:  This  sends  the  program  back  to  line  30, 
where  a  subroutine  call  is  directed  to  80,  to  get  the 
computer  to  make  a  move. 


We  hope  by  now  you  can  understand  the  structure.  This  is  what 
is  happening: 
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GOSUB  630  —  initialised  (this  subroutine  is  not 

revisited) 

GOSUB  80  —  computer  makes  a  move 

GOSUB  360  —  board  is  printed  out 

GOSUB  510  —  human  makes  a  move 

GOSUB  360  —  board  is  printed  out  again 

GOTO  30  —  return  to  the  line  to  allow  the  computer 

to  make  a  move 

This  sequence  is  cycled  over  and  over  again  while  the  program 
is  running  until  one  player  or  the  other  manages  to  capture 
seven  or  more  of  the  opponent’s  pieces.  You  can  see  that  if  we 
had,  for  example,  a  problem  with  the  way  the  board  was  being 
printed  on  the  screen,  it  could  be  overcome  relatively  easily, 
because  we  would  know  the  error  lay  between  lines  360  and  510. 
Similarly,  if  we  wished  to  alter  the  style  of  play  exhibited  by  the 
computer,  all  we’d  have  to  do  is  look  at  the  sequence  which 
began  at  line  80.  Programming  in  this  ‘modular’  way  is  very 
useful. 

The  only  routine  we  have  not  looked  at  is  that  starting  at  line 
630,  the  initialisation  routine.  Line  640  initialises  two  arrays:  A 
to  hold  the  board  and  C  to  hold  the  potential  moves  in  four 
directions  from  each  square.  Variables  H  (for  the  human 
piece),  C  (for  the  computer  piece)  and  E  (for  an  empty  square) 
are  assigned  at  the  end  of  this  line.  The  three  loops  (660  to  690, 
700  to  730  and  740  to  770)  ‘fill  up’  the  board  with  the  starting 
positions.  In  lines  780  and  790  the  variables  which  hold  the 
score,  HS  for  human  scores,  CS  for  computer  score,  are  set  to 
zero.  The  remainder  of  this  routine  defines  the  user  graphics, 
creating  the  rounded  and  the  square  pieces.  Line  930  cadis  the 
board  subroutine  so  you  can  look  at  the  board  as  the  computer 
considers  a  move,  and  then  940  sends  the  program  back  to  line 
30,  where  the  whole  ‘game  cycle’  begins. 
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You’ll  recall  that  several  times  in  this  book  so  far  we  have 
referred  to  numeric  variables  (letters  like  A  or  B,  words  like 
COUNT  and  GUESS,  and  combinations  such  as  R2D2  or 
C3PO)  and  to  string  variables  (a  single  letter  followed  by  a 
dollar  sign,  such  as  a$  or  A$  is  a  string  variable).  In  this  chapter 
we’U  be  looking  at  strings,  and  at  things  you  can  do  with  them. 


THE  CHARACTER  SET 

Every  letter,  number  or  symbol  the  computer  prints  has  a 
CODE.  Telling  the  computer  to  print  the  character  of  that 
CODE  produces  the  character.  It  is  easy  to  understand  this. 
The  CODE  of  the  letter  “A”  has  nothing  to  do  with  the  value 
assigned  to  A  when  it  is  a  numeric  variable,  but  refers  to  “A” 
when  we  actually  want  the  computer  to  print  the  letter  “A” 
out.  We’ll  put  the  “A”  in  quote  marks  when  referring  to  it  as  a 
letter.  Try  it  now.  Enter  this  into  your  computer  and  see  what 
you  get:  (you’ll  find  CODE  on  the  I  key): 

PRINT  CODE  "R” 


You  should  get  an  answer  of  65.  Now  65,  is  the  CODE  of  the 
letter  “A”.  We  can  turn  it  back  into  an  “A”  by  asking  the 
computer  to  print  the  character  which  responds  to  CODE  65. 
We  do  this  with  the  symbol  CHR$  which  you’ll  find  on  the  U 
key. 
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PRXNT  CHR$  6S 

You  can  get  the  computer  to  print  out  every  CODE  and 
character  with  the  next  short  program,  which  has  —  as  you  can 
see  —  a  very  long  print  out.  When  Scroll?  appears,  just  touch 
the  ENTER  key  to  continue. 


1©  REM  Showing  ODDE 

and  GHR$ 

2©  FOR  R  =32  TO  255 
3©  PRXNT  RT  5,3;  "CODE  ** ;  R;  TAB 
12;  "CHRRSCTER  * * ; CHR $  A;  ” 

4-©  PAUSE  3© 

S©  BEEP  . ©l,A/6 
6©  NEXT  A 

This  is  what  you'll  get  when  you  run  the  program: 


CODE 

CODE 

w*  w" 

CHARACTER 

CHARACTER 

i 

CODE 

34- 

CHARACTER 

1 1 

CuDE 

CHARACTER 

u 

CODE 

30 

CHRRftCTER 

$ 

CODE 

37* 

CHARACTER 

X 

CODE 

CHARACTER 

CODE 

30 

CHARACTER 

* 

CODE 

4-0 

CHARACTER 

{ 

CODE 

4- 1 

CHARACTER 

J 

CODE 

4-2 

CHARACTER 

$ 

CODE 

4-3 

CHARACTER 

CODE 

4-4- 

UnHKHb 7 CR 

J 

CODE 

4-5 

PWQDQrTFD 

CODE 

4-6 

CHARACTER 

* 

CODE 

4- "7 

CHARACTER 

CODE 

4-0 

CHARACTER 

0 

CODE 

4-S 

CHARACTER 

1 

CODE 

s© 

CHARACTER 

2 

CODE 

51 

CHARACTER 

3 

CODE 

52 

CHARACTER 

4- 

CODE 

53 

CHARACTER 

s 

CODE 

S4- 

OHRRhCTER 

€> 

CHRRRDTER 

V 

CODE 

56 

CHARACTER 

£> 

Q 

CODE 

57 

CHARACTER 

Q 

wm 

CODE 

58 

CHARACTER 

* 

CODE 

ESTiQ 

CHARACTER 

CODE 

60 

CHARACTER 

< 

CODE 

61 

CHARACTER 

CODE 

62 

CHARACTER 

> 
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CODE  63  CHARACTER  ? 
CODE  64-  CHARACTER  @ 
CODE  65  CHARACTER  A 
CODE  66  CHARACTER  B 
CODE  67  CHARACTER  C 
CODE  66  CHARACTER  D 
CODE  69  CHARACTER  E 
CODE  70  CHARACTER  P 
CODE  71  CHARACTER  G 
CODE  72  CHARACTER  H 
CODE  73  CHARACTER  I 
CODE  74-  CHARACTER  J 
CODE  75  CHARACTER  K 
CODE  76  CHARACTER  L. 
CODE  77  CHARACTER  M 
CODE  76  CHARACTER  N 
CODE  79  CHARACTER  O 
CODE  8©  CHARACTER  P 
CODE  81  CHARACTER  O 
CODE  82  CHARACTER  R 
CODE  83  CHARACTER  S 
CODE  84-  CHARACTER  T 
CODE  85  CHARACTER  U 
CODE  86  CHARACTER  V 
CODE  87  CHARACTER  U 
CODE  88  CHARACTER  X 
CODE  89  CHARACTER  Y 
CODE  9©  CHARACTER  Z 
CODE  91  CHARACTER  t 
CODE  92  CHARACTER  V 
CODE  93  CHARACTER  3 
CODE  94-  CHARACTER  * 
CODE  95  CHARACTER  _ 
CODE  96  CHARACTER  £ 
CODE  97  CHARACTER  a 
CODE  98  CHARACTER  b 
CODE  99  CHARACTER  c 
CODE  1©0  CHARACTER  d 
CODE  101  CHARACTER  e 
CODE  102  CHARACTER  f 
CODE  163  CHARACTER  9 
CODE  104-  CHARACTER  h 
CODE  105  CHARACTER  i 
CODE  106  CHARACTER  J 
CODE  107  CHARACTER  R 
CODE  108  CHARACTER  l 
CODE  109  CHARACTER  fit 

CODE  11©  CHARACTER  ft 
CODE  111  CHARACTER  O 
CODE  112  CHARACTER  P 
CODE  113  CHARACTER  q 
CODE  114-  CHARACTER  r 
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DuDE  115  CHRRhCTER  S 
CODE  13.6  QHRRRCTER  t 
CODE  117  CHRRRCTER  U 
CODE  118  QHRRRCTER  V 
CODE  119  QHRRRCTER  W 
CODE  120  CHARACTER  X 
CODE  121  CHARACTER  y 
CODE  122  CHRRRCTER  2 
CODE  123  CHRRRCTER  € 

CODE  124-  CHARACTER  I 
CODE  125  CHARACTER  > 

CODE  126  CHARACTER  " 

CODE  127  CHRRRCTER  © 

CODE  128  CHARACTER 

LUL’t.  UrIHNHw  I  CK 

CODE  13©  CHARACTER  * 

CODE  131  CHARACTER  “ 

CODE  132  CHARACTER 
CODE  133  CHARACTER 
CODE  134-  CHARACTER 
CODE  135  CHARACTER 
CODE  136  CHARACTER 
CODE  137  CHARACTER 
CODE  138  CHRRRGTER 
CODE  139  CHRRfiCTER 
CODE  14-0  CHARACTER 
CODE  14-1  CHRRRGTER 
CODE  14-2  CHRRRGTER 
CODE  14-3  CHRRRGTER 
CODE  14-4.  CHRRRGTER  R 
CODE  14-5  CHARACTER  B 
CODE  14-6  CHRRRGTER  C 
CODE  14-7  CHRRRGTER  D 
CODE  14-8  CHRRfiCTER  E 
CODE  14-9  CHRRRGTER  P 
CODE  150  CHRRRGTER  G 
CODE  151  QHRRRCTER  H 
CODE  152  CHRRRGTER  I 
CODE  153  CHRRRGTER  O 
CODE  154-  CHRRRCTER  K 
CODE  155  CHRRRCTER  l_ 

CODE  156  CHRRRGTER  M 
GODE  157  CHRRRCTER  N 
CODE  158  CHRRRCTER  O 
CODE  159  CHRRRCTER  P 
CODE  160  CHRRfiCTER  Q 
CODE  161  CHRRRCTER  R 
CODE  162  CHRRRCTER  S 
CODE  163  CHRRRCTER  T 
CODE  164-  CHRRRCTER  U 
CODE  165  CHRRRCTER  RMD 
CODE  166  CHRRRCTER  XNKEY'jt 
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CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

CODE 

pnr%F 

CODE 

CODE 


lev  CHfiRfiCTER  PI 

15 8  CHARACTER  FN 
ISO  CHARACTER  POINT 

170  CHARACTER  SCREEN* 

171  CHARACTER  ATTR 

172  CHARACTER  AT 

173  CHARACTER  TAB 
174-  CHARACTER  UAL$ 

175  CHARACTER  CODE 
17S  CHARACTER  UAL 
177  CHARACTER  LEN 
17©  CHARACTER  SIN 
170  CHARACTER  COS 

150  CHARACTER  TAN 

151  CHARACTER  ASN 
1B2  CHARACTER  ACS 
1S3  CHARACTER  RTN 
1S4-  CHARACTER  LN 
1S5  CHARACTER  EXP 
1SS  CHARACTER  INT 
1S7  CHARACTER  SOP 
IS©  CHARACTER  SGN 

159  CHARACTER  ABS 

190  CHARACTER  PEEK 

191  CHARACTER  IN 

192  CHARACTER  USR 

193  CHARACTER  STR$ 

194-  CHARACTER  CHR$ 

195  CHARACTER  NOT 
19S  CHARACTER  BIN 

197  CHARACTER  OR 

198  CHARACTER  AND 

199  CHARACTER  <  = 

200  CHARACTER  > - 

201  CHARACTER  <  > 

202  CHARACTER  LINE 

203  CHARACTER  THEN 
204.  CHARACTER  TO 
205  CHARACTER  STEP 
20©  CHARACTER  DEF  FN 
20?  CHARACTER  CRT 
2©S  CHARACTER  FORMAT 

209  CHARACTER  MOUE, 

210  CHARACTER  ERASfe 

211  CHARACTER  OPEN  U 
SIS  CHARACTER  CLOSE  » 
213  CHARACTER  HERGE 
214.  CHARACTER  UERIFV 
215  CHARACTER  BEEP 

2 IS  CHARACTER  CIRCLE 
217  CHARACTER  INK 
21 B  CHARACTER  PAPER 
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CODE  219  CHHRftCTER  FLRSH 
CODE  220  CHRRRCTER  BRIGHT 
CODE  221  CHRRRCTER  INVERSE 
CODE  222  CHRRRCTER  OVER 
CODE  223  CHRRRCTER  OUT 
CODE  224.  CHRRRCTER  LPRINT 
CODE  225  CHRRRCTER  LLIST 
CODE  225  CHRRRCTER  STOP 
CODE  227  CHRRRCTER  RERD 
CODE  22S  CHRRRCTER  DATA 
CODE  229  CHRRRCTER  RESTORE 
CODE  23©  CHRRRCTER  NEW 
CODE  231  CHRRRCTER  BORDER 
CODE  232  CHRRRCTER  CONTINUE 
CODE  233  CHRRRCTER  DIM 
CODE  234.  CHRRRCTER  REN 
CODE  235  CHRRRCTER  FOR 
CODE  236  CHRRRCTER  GO  TO 
CODE  237  CHRRRCTER  60  SUB 
CODE  23S  CHRRRCTER  INPUT 
CODE  239  CHRRRCTER  LORD 
CODE  24-0  CHRRRCTER  LIST 
CODE  24-1  CHRRRCTER  LET 
CODE  24-2  CHRRRCTER  PRUSE 
CODE  24.3  CHRRRCTER  NEXT 
CODE  244  CHRRRCTER  POKE 
CODE  245  CHRRRCTER  PRINT 
CODE  246  CHRRRCTER  PLOT 
CODE  247  CHRRRCTER  RUN 
CODE  24S  CHRRRCTER  SRVE 
CODE  249  CHRRRCTER  RANDOMIZE 
CODE  25©  CHRRRCTER  IF 
CODE  251  CHRRRCTER  CLS 
CODE  252  CHRRRCTER  DRRW 
CODE  253  CHRRRCTER  CLERR 
CODE  254  CHRRRCTER  RETURN 
CODE  255  CHRRRCTER  COPY 


A  more  convenient  version  of  this  program  —  which  takes  up 
less  time  and  space  —  is  as  follows: 


I© 

2© 


;  TRB 
4© 


REM  Showing  CODE 

and  CHR$ 

FOR  ft  =32  TO  254  STEP  2 
PRINT  TRB  3;R;TRB  7;  CHR$ 
lS;fl  +  i;TRB  22;  CHR$  CR+1J 
NEXT  R 


R 


CHAPTER  TEN 


83 


And  this  is  the  result  of  running  it: 
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133 

J 

134- 

13S 

*» 

133 

tt 
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L 

138 

I 

139 

C 
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143 
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S3® 
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24.1 
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24.3 
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as  4- 
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TESTING  YOUR  CHARACTER 

Our  next  program  is  a  reaction  tester  like  the  one  you 
experienced  earlier.  However,  you  are  not  just  being  tested  on 
speed.  In  this  program,  you  have  to  try  and  find  the  right  key  on 
the  keyboard  as  quickly  as  possible. 


Make  sure  that  CAPS  LOCK  is  not  engaged  (so  you  have  an  L 
rather  than  a  C  cursor)  when  you  run  this  program.  A  letter  will 
appear  in  the  middle  of  the  screen.  As  quickly  as  you  can,  find 
that  letter  on  the  keyboard  and  press  it.  You  will  be  told  how 
long  it  took  you,  and  this  time  compared  with  your  best  time. 
Notice  how  the  letter  which  is  printed  on  the  screen  uses  CHR$ 
in  line  40  (find  the  character  of  the  number,  chosen  at  random 
in  line  20,  represented  by  the  variable  a),  and  a$  (which  is  the 
key  you  pressed,  using  INKEYS  which  is  explained  a  little  later 
in  the  book)  is  compared  with  CHR$  a  in  line  60  to  see  if  you 
were  correct. 


1©  REM  KEVBORRX>  INSTRUCTOR 
15  LET  bes  t  =© 

2©  LET  a=97+INT  tRND*263 
3©  LET  b  =0 

4-©  PRINT  RT  13,7;  FLRSH;1;CHR$ 
a 

5©  LET  a$=INKEY$ 

6©  IF  a$=CHR$  a  THEN  BEEP  1,RN 
€>*50:  GO  TO  120 
7©  LET  b  =  h  -f  1 

S©  PRINT  RT  11,5;  INK  2; b 
©0  IF  b<20©  THEN  GO  TO  50 
a.©©  print  '  '“Sorry,  tioe  is  op” 

110  GO  TO  14.0 

12©  PRINT  ' "Ue  1 1  done/  you  scar 

ad  ■* 
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130  PRINT  200-b; "  on  that  one” 
14.0  IF  200-b  >bes  t  THEN  L.ET  best 

15©  PRINT  '  '  FJLRSH  1;  INK  3;  "Be 
st  so  far  is  ”;best 
is©  FOR  gs=l  TO  <t*b 
170  NEXT  g 
15©  CL.S 
19©  GO  TO  20 


CUTTING  THEM  UP 

One  of  the  really  great  aspects  of  your  computer  is  the  way  it 
can  be  used  to  manipulate  strings .  It  is  called  ‘string  slicing’  and 
works  as  follows.  The  string  (which  can  be  a  word  in  quotes  like 
“HELLO”  or  a  string  variable,  such  as  A$)  is  followed  by  a 
number,  and  possibly  the  word  TO,  in  parenthesis.  The 
information  which  follows  the  string  determines  which  parts  of 
the  string  will  be  printed.  For  example,  if  the  string  was 
“TRIUMPH”  telling  the  computer  to  PRINT  “TRIUMPH” 
(I)  would  get  it  to  print  “T”  since  T  is  character  number  one  in 
the  string.  Similarly,  PRINT  “TRIUMPH”  (4)  would  get  the 
computer  to  print  up  a  “U”,  since  this  is  the  fourth  letter  of  the 
word. 

The  computer  can  do  more  than  select  a  single  element  in  this 
way.  If  you  follow  the  string  with  (2  TO)  it  will  print  all  of  the 
characters  in  the  string, /row  number  two  on  wards.  In  effect,  it 
prints  the  string  stripped  of  its  first  character.  Following  it  with 
the  word  TO  and  then  a  number,  such  as  (TO  7)  will  print  all  of 
the  string  up  to,  and  including ,  the  seventh  character.  There  is 
still  more.  If<you  follow  the  string  with  (2  TO  4),  for  example,  it 
will  print  only  the  second,  third  and  fourth  characters  of  the 
string.  ■-  - 

The  next  program  should  help  make  this  clear.  The  string 
variable  A$  is  set  equal  to  “FIFTH*AVE”  in  line  10,  and 
various  portions  of  this  are  selected  by  the  lines  of  the  program. 
Run  it  as  it  is,  to  see  if  you  can  follow  through  what  is 
happening  in  each  line: 
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I©  LET  R  fi  = ' 1 F IFTH  *flUE  ** 

15  PRINT  *‘R$  =  ";R$ 

2©  PRINT  R$;  ”  (2  TO  3  =  ";R$f2 

TO  3 

3©  PRINT  R$;  **  IS  TO  3  =  ";R$tS 

TO  3 

4-b  print  r$;  **  te  to  73  =  '*;«${© 

TQ 

'  SS^PR  I  NT  R£;  "  C4.  TO  73  =  “;R$C4. 

ie  *  PRINT  R$;  **  t  TO  73  *  ”;R$C  T 


You’ll  see  this  when  you  run  the  program: 

RS  =  FIFTHiRUE 

FIFTHiflUE  (2  TO  3  =  rFTH  * flUE 

FIFTHfflUE (6  TO  3  =  *RUE 

FIFTH  J-flUE  CS  TO  73  =  *R 

FIFTH-tflUE  (4  TO  73  =  THiR 

FIFTHiRUE  t  TO  73  =  FIFTH-rR 

Now  change  A$  in  line  10  to  your  name,  or  another  word  of 
your  choice,  and  run  the  program  again. 


PUTTING  THEM  BACK  TOGETHER 

Strings  can  be  added  together  on  your  computer.  The  process 
of  adding  strings  is  called  the  frightening-looking  word 
concatenation.  You  can  concatenate  two  complete  strings 
together,  or  just  add  bits  of  them,  as  our  next  program  shows: 


1©  LET  fl$«"RMERICR" 

2©  LET  B*= "COLUMBUS" 

3©  LET  C$=R$+B$ 

4.®  PRINT  =  *’;R $ 

50  PRINT  "B*  =  **;B$ 

S©  PRINT  "C$  =  ";C$ 

7©  LET  D=INT  fRND*S3 
80  LET  E=INT  CRND*S3  +7 
90  LET  I>$=C$t &  TO  E3 
10©  PRINT  “£>$=  " ;  I>$ 

II®  LET  E$*=R$+£>$ 

12©  PRINT  "E$  =  ” ;  E3? 
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When  you  run  this  program,  which  creates  C$  in  line  60  by 
concatenating  A$  and  B$,  you’ll  see  results  like  these  three: 

RMERICft 
S$=  COLUMBUS 

RHERICfiCOLUMBUS 
!>*=  XCfi 

E$=  ftMERICRTCfl 


=  RMERICft 
SS=  COLUMBUS 
C$=  ftMERICftCQLUMEUS 
D$  =  RICRCGLUM 
£$=  RSiERICftRICftCGLUM 


RMERICft 
B$=  COLUMBUS 
C  $  a  flMER ICftCOLUMBUS 
D$=  MERICflC 

RMER ICBMER ICflC 


PLAYING  AROUND 

You  can  do  a  number  of  things  with  string  slicing,  as  our  next 
program  demonstrates.  NAME  PYRAMID  allows  you  to  enter 
your  name  to  produce  a  very  interesting  display.  Once  you’ve 
seen  the  program  running,  you’ll  understand  why  the  program 
has  been  given  the  name  it  has.  Note  that  you  get  TAB  (use  in 
line  45.)  frpm  the  P  key,  and  that  in  line  60  the  variable  G  is  used 
to  hoth  select  the  INK  colour  and  to  select  the  element  of  the 
string  which  will  be  printed: 

£  REM  NAME  PYRRHID 
2  REM  showing  string  slicing 
5  PRPER  ©:  BORDER  0:  INK  7;  C 

L®' 

*“'~£©  INPUT  FLASH  £;  BRIGHT  1;  "Wb 
at  is  your  name  7  ";R$ 

2®  IE  LEN:fi$> 15  THEN  LET  R$=R$ 
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TO  15) 

30  LET  fi=LEN  ft$ 

35  PRINT  TAB  14- ;  INK  2;  **  «”  : 

REM  Graphic  from  Key  4- 
4-0  FOR  G=l  TO  R 
4-5  PRINT  TAB  15-G; 

50  FOR  H=X  TO  2*G 
S0  PRINT  INK  G^'2;fl$(Gi; 

*7©  NEXT  H 
30  PRINT 

00  BEEP  0.05,2*G 
100  NEXT  G 


HH 

EEEE 

i  I  Ml  1—  fel— 

EEEEEEEE 

NNNNNNNNNN 

MHMMMMMMMMMHMM 

cccccccccccccccc 

KKKKKKKKKKKKKKKKKK 

■jpt  ■  ■  1 1 jpi» ■  ii  *yi.-  ^yi  ym  l^y*»  *<\y-  4* 

jJltt  ijil  I  JL  Jr  wMmt  p'pJrw i JW  ii  I'lWt'i  Jfc  4HK  HHi  Jl  Jk  Mi  mL*-  ■ 

NNNNNNNNNNNNNNNNNNNNNN 

NNNNNNNNNNNNNNNNNNNNNNNN 

RRRRRRRRRRRRRRRRRRRRRRRRRR 


■ 

IIII 

MMMMHM 

EEEEEEEE 

xxxxxxxxxx 

SSS5SSSSSSSSS5 

inn  ii  ii  1 1 1  mi 

NNNNNNNNNNNNNNNNNN 

ccccggccccccgccccccc 

ELL.EEELLJ-EUL-EEEt-EL.ELLl- 

rrrrrrrrrrrrrrrrrrrrrrrr 

i i i i i i i i ixi i x i XXX xxxxxxxix 

RRRRRRRRRRRRRRRRRRRRRRRRRRRR 
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PLAYING  IT  BACK 

Our  final  program  in  this  chapter  shows  one  very  effective  use 
of  string  slicing,  in  which  a  string  is  progressively  reduced  by 
one  element.  When  you  run  ECHO  GULCH,  you’ll  see  a  letter 
appear  on  the  screen.  It  will  then  vanish.  Once  it  has  vanished 
(and  not  before)  you  will  have  a  limited  amount  of  time  in 
which  to  press  the  key  yourself. 

If  you  have  pressed  the  right  key,  a  short  tune  will  sound,  and 
the  letter  will  be  replaced  with  a  new  one.  This  will  stay  on  the 
screen  for  a  shorter  time.  Each  time  a  new  letter  appears,  you 
will  be  given  less  time  to  see  it,  before  you’ll  have  to  type  it  into 
the  computer.  If  you  make  a  mistake,  the  “SORRY,  THAT’S 
WRONG”  message  will  appear,  along  with  your  score.  If  you 
manage  to  get  all  of  a  list  of  letters  right,  you’ll  be  rewarded 
with  a  “YOU’RE  THE  CHAMP!!”  message. 

Here’s  the  listing: 


10  REN  ECHO  BUtCh  -  Showing 

string  s  ii  cing 
15  LET  £>=© 

20  LET  R$  =  ’,RBCSBKBH&L*DBeETVfcJR& 
S0DEJKDGSHEBCDaDBCER" ( INT  £RNP * 6 


3©  PRINT  RT  12, 15;  INK  I;  BRIG 

HT 

3S  FOR  £5=3.  TO  7iLEN  :  NEXT  G 


C3_S 

10  LET  B$aINKEY$ 

SB  IF  B*<  **R“  OR  THEN  GO 

S5  PRINT  RT  3.2,  IS;  FLRSH  U  IN 

K  14B If”  then  for  g=g  to 

10+RND  3-3© :  BEEP  .087,£;  BEEP  .0 
BB ,  5B-G :  NEXT  G 

55  PRINT  RT  12, IS;  FLRSH  1;  IN 
H  It 7  FOR  £3=1 'to'  100:  NEXT  G 
70  IF  B$ i >R$  1 1}  THEN  GO  TO  11© 

30  LET  £2  TO  >  „ _ „ 

35  IF  LEN  R$=l  THEN  GO  TO  14.0 
9©  LET  S  =5  + 1 
10©  GO  TO  30 
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110  PRINT  '  '  '  '  "  "SORRY,  THAT'S 
URON6  '* 

12©  print  ' ' "you  SCORE©  " ; S 

130  STOP 

14.0  PRINT  "YOU 'RE  THE  CHRMP 

s  s  ■* 


The  variable  S,  which  holds  your  score,  is  set  to  zero  in  line  15, 
and  line  20  sets  the  string  variable  AS  to  a  long  line  of  letters .  If 
you  look  to  the  end  of  those  letters  in  line  20,  you’ll  see  a 
complicated  looking  statement  beginning  with  INT,.  and 
including  RND.  This  chooses  a  random  starting  place  for  the 
string  (one  of  the  first  six  characters)  so  you  will  get  different 
letters  each  time  you  run  it  (although,  of  course,  they  will  be  the 
same  from  the  starting  point,  but  the  random  starting  point 
gives  the  effect  of  a  new  list  of  characters  each  run). 

Line  30  prints  A$(l),  the  first  letter  only  of  the  string,  on  the 
screen,  and  line  35  inserts  a  short  delay  loop,  which  uses  the 
LEN  function.  This  is  another  string  function,  and  returns  the 
length  of  a  string,  that  is,  the  number  of  characters  which  make 
it  up.  LEN  does  not  make  any  distinction  between  letters, 
numbers,  symbols  or  spaces,  as  you’ll  discover  if  you  enter  a 
number  of  PRINT  LEN  AS  statements,  after  setting  A$  to 
equal  various  words,  symbols  and  sentences.  Because  AS  is 
reduced  by  one  character  by  line  80  each  time  the  program 
cycles,  LEN  A$  is  a  smaller  number  each  time,  so  the  delay 
produced  by  line  35  (which  dictates  how  long  the  character  will 
be  on  the  screen  before  it  vanishes)  becomes  shorter  . 


INKEY$ 

Line  40  uses  INKEYS  to  read  the  keyboard.  INKEYS,  as  you’ve 
probably  worked  out  by  this  point  in  the  book,  does  not 
demand  that  you  press  RETURN  after  touching  a  key. 
INKEYS  always  returns  the  key  you  have  pressed  as  a  string. 
INKEYS  does  not,  in  contrast  to  INPUT,  wait  until  you  have 
pressed  a  key  before  the  program  continues.  If  you  are  not 
touching  the  keyboard  when  the  program  gets  to  an  INKEYS,  it 
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simply  passes  right  through  the  line,  reading  your  non¬ 
touching  of  the  keyboard  as  the  null  string,  (two  quote  marks 
with  nothing,  not  even  a  space,  between  them,  as  “”). 

Line  50  looks  at  B$ ,  the  variable  which  is  set  equal  to  whichever 
key  is  being  pressed  as  the  program  goes  through  line  40.  As  you 
can  see  in  line  50,  you  can  use  the  greater  than  (>  )  and  less  than 
(< )  symbols,  which  we  discussed  in  chapter  eight,  in 
connection  with  strings.  These  look  at  all  elements  of  a  string, 
and  compare  them  in  terms  of  alphabetical  order  (so 
“ZEBRA”  is  less  than  “AARDVARK”,  and  “BEAST”  is 
greater  than  “BEAUTY”). 

Y ou  can  compare  strings  using  equals  (  =  )  and  not  equals  (<  > ) 
as  is  shown  in  the  next  few  lines  of  the  program.  Line  60 
compares  the  key  you’ve  pressed  (B$)  with  the  first  element  of 
A$,  and  if  they  are  the  same,  continues  through  the  multi¬ 
statement  line  to  play  the  sounds  produced  by  the  G  loop.  Line 
65  then  prints  a  green  square  on  the  spot  where  the  next  letter 
will  appear .  Line  70  compares  B$  with  A$(l)  again,  and  if  finds 
they  are  not  equal  sends  the  program  to  lines  110  and  120  where 
you  are  told  “SORRY,  THAT’S  WRONG”  and  your  score  is 
given. 

Line  85  strips  the  string  A$  of  its  first  character,  by  setting  A$ 
equal  to  AS  ( 2  TO).  Line  85  checks  to  see  if  the  length  of  A$ 

equals  one  (that  is,  if  LEN  A$  =  1)  and  if  it  finds  that  it  is,  goes 
to  line  140  to  print  out  the  “YOU’RE  THE  CHAMP!!” 
message.  If  not,  line  90  adds  one  to  variable  S,  your  score,  then 
cycles  back  to  line  30  to  print  the  next  letter  for  you. 


a  DTI?D  ITT  i7\7'TTXT 
v^xlx\ Jr  X  JUv  1M  *  V  JLl^i 

READING  DATA 


In  this  chapter  we’ll  be  looking  at  three  very  useful  additions  to 
your  programming  vocabulary:  READ,  DATA  and 
RESTORE.  They  are  used  to  get  information  stored  in  one  part 
of  the  program  to  another  part  where  it  can  be  used. 


Enter  and  run  this  program,  which  should  make  this  a  tittle 
clearer: 


10  REM  READ,  DRTR  &  RESTORE 

2©  DXM  ft C51 

30  FOR  B=1  TO  S 

4-0  RERD  ft  fBl 

50  PRINT  ft  fBJ 

SO  NEXT  B 

70  DftTft  SB  f  6392  t  23  «  32 , 4-4-4- 


Using  line  40,  the  program  READs  through  the  DATA 
statement  in  line  70  in  order,  printing  up  each  item  of  DATA 
(with  line  50). 


RESTORE  moves  the  computer  back  to  the  first  item  of  DATA 
in  the  program,  as  you’ll  discover  if  you  modify  the  above 
program  by  adding  line  55,  so  it  reads,  as  follows: 
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REM  HERD ,  DRTR  &  RESTORE 
=  0  DIM  R(5> 

3©  FOR  B— 1  TO  5 
4-0  RERD  H  (B) 

5©  PRINT  RCB3 

S5  IF  B=3  THEN  RESTORE 

50  NEXT  B 

7s©  DRTR  SSfSSSS^S^S^^ 


It  does  not  matter  where  in  the  program  the  DATA  is  stored. 
The  computer  will  seek  it  out,  in  order  from  the  first  item  of 
DATA  in  the  program  to  the  last,  as  our  next  program  (which 
scatters  the  DATA  about  in  an  alarming  way)  convincingly 
demonstrates: 


I  DRTR  4-5 

I©  REM  RERD  s  DRTR  A  RESTORE 

2©  DIM  RtSJ 

22  DRTR  886 

3©  FDR  B=1  TO  5 

4.©  RERD  R  (BJ 

5©  PRINT  R  IBJ 

55  DRTR  4-32 

SS  NEXT  B 

70  DRTR  S33 , 254. 


READ  and  DATA  work  just  as  well  with  string  information: 


I©  REM  RERDXDRTR  WITH  STRINGS 
20  FOR  B=2  TO  5 
3©  RERD  R$ 

4.0  PRINT  R$ 

5©  NEXT  B 

£>©  DRTR  ’’THIS”  ,  "SHOUS"  ,  "DRTR" 
**  IN**  ,  "RCTION” 


Note  that  string,DATA  must  be  enclosed  within  quote  marks. 
You  can  mix  numeric  and  string  DATA  within  the  same 
program,  so  long  as  you  take  care  to  ensure  that  when  the 
program  wants  a  numeric  item  that  a  number  comes  next  in  the 
program,  and  when  it  wants  a  string  item,  it  finds  it: 
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2.0  REM  MIXED  DRTR 
2©  FOR  B =2  TO  5 
3©  RERD  R$:  RERD  R 
4.0  PRINT  R$,R 
NEXT  B 

5©  DRTR  "THIS**  ,  34-2  "SHOWS  "{34; 
"DRTR"  ,  3333  #  **  IN**  ,  23  ,  **ROTION,,u  ,  74-2 

You  can  also  use  variables,  string  and  numeric,  as  DATA  items 
as  you’ll  see  when  you  run  the  next  amazing  routine: 

IS  REM  URRIRBLES  RS  DRTR 

2©  LET  Z  =  2S3 

3©  LET  B  $  =  "TERR IF IC  " 

4-0  FOR  0  =  2  TO  5 
50  RERD  R:  RERD  R  J» 

60  PRINT  R$;  *’  **;R 

70  NEXT  C 

60  DRTR  34- "RMRZING" 

"TESTING"  ,  Z..  "OKM,B$ 


In  our  next  program,  GALACTIC  GROCER,  written  by  Tim 
Rogers,  the  goodies  you  are  trading  with  start  off  their  lives  in 
DATA  statements  in  lines  9000  and  9010.  The  relative  value  of 
these  strange  objects  is  stored  in  the  two  DATA  statements 
which  follow. 


In  this  program  you  are  the  Galactic  Grocer,  trading  such 
interstellar  goodies  as  coal  dust,  reject  soap,  aspidistras  and 
zinc  hub-caps.  As  you’ll  discover,  these  items  are  in  great 
demand  throughout  the  galaxy.  You  start  out  with  some 
money,  and  a  stock  of  goods,  provided  by  Galactic  Grocery 
Central,  and  you  are  attempting  to  zap  around  space,  trading 
here  and  bartering  there,  to  return  to  Central  with  more  goods. 
On  arrival,  the  goods  in  your  hold  will  be  sold  for  twice  the 
amount  you  paid  for  them,  and  a  tenth  of  the  profits  will  go  to 
you.  The  program  is  set  over  some  20  years,  compressed  into  a 
quarter  of  an  hour  or  so  by  the  computer  time  continuum. 

Out  there,  in  the  cut  and  thrust  of  interstellar  commerce,  you’ll 
meet  other  hardnosed  Grocers  from  other  firms,  planets  and 
star  systems.  They’ll  be  on  their  way  to  other  points  in  the 
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Known  Universe,  and  will  be  willing  to  trade  with  you.  Keep  in 
mind  —  when  considering  purchasing  anything  from  wily 
traders  —  that  the  point  of  the  game,  so  far  as  you  are 
concerned,  is  to  try  and  stockpile  the  really  pricey  merchandise. 
If  you  don’t  want  to  buy  from,  or  sell  to,  a  particular  trader, 
then  just  press  ENTER  (that  is,  you  do  not  have  to  press  0,  then 
ENTER). 

Line  100  sets  the  variable  PA  (which  will  control  the  PAPER 
colour  to  zero  (black),  and  in  line  1 10,  variable  IN  (which  will 
control  the  INK  colour)  is  set  to  six  (yellow).  The  subroutine 
from  line  7000  (to  which  you  are  sent  by  line  120)  sets  the 
BORDER  and  PAPER  colours  to  PA,  and  the  INK  to  IN, 
followed  by  a  CLS  to  clear  the  screen.  On  returning  from  this 
subroutine,  two  functions  are  defined  in  lines  130  and  140. 
Both  of  these  will  be  called  later  on  in  the  program  to  generate 
random  integers.  Line  1 50  prints  the  program’s  name  near  the 
bottom  of  the  screen,  and  line  900  seeds  the  random  number 
generator. 

Arrays  are  dimensioned  and  variables  initialised  in  the  lines  910 
to  1 160.  Line  1015  ensures  that  CAPS  LOCK  is  not  engaged,  so 
all  the  input  and  output  of  this  program  will  be  in  small  letters. 
The  C$  array  is  filled  with  your  initial  supply  of  goods  (the  coal 
dust  and  the  like)  with  the  loop  from  1040  to  1080,  and  a 
diagonal  row  of  stars  is  printed  (line  1075)  to  keep  you  amused 
while  this  is  going  on .  Line  1 1 50  ensures  that  around  1 5  per  cent 
of  the  ‘o’  array  will  contain  numbers  generated  at  random 
between  one  and  10000  (using  the  function  s  which  was,  you’ll 
recall,,  defined  in  line  140).  More  stars  are  printed  by  line  1155. 

Once  the  a  loop  has  been  traversed,  1165  sends  the  program  to 
the  subroutine  starting  at  8500  which  makes  a  few  noises,  and 
flashes  the  BORDER  at  you,  ending  up  (line  8560)  with  a  black 
border  again.  Line  1700  sets  the  variable  w  (the  year)  to  2100, 
and  1180  sets  up  your  starting  money  (variable  m)  to  a  value 
somewhere  between  10000  and  20000  (using  function  s  again). 
Line  1190  sends  the  computer  to  the  subroutine  from  line  5000, 
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which  works  out  the  value  of  your  cargo,  adding  this  value  (j)  to 
your  money  (m),  on  returning  from  the  subroutine,  sets  jl  equal 
to  the  value  of  your  cargo  (j).  Line  2000  assigns  values  to  the 
PAPER,  INK  and  BQRDER  colours,  then  sends  action  to  the 
subroutine  from  line  7000  to  put  them  in  order. 

The  subroutine  from  line  6000,  called  from  line 2020,  prints  out 
six  blank  lines  before  returning  to  lines  2040  and  2050  where  the 
year  (w)  and  your  money  (m)  is  printed  out.  Another  blank  line 
is  printed  (by  line  2060)  then  the  loop  from  2070  to  2090  prints 
out  your  holdings.  The  string  variable  b$  is  set  equal  to  “buy” 
in  line  2010,  and  then  in  the  subroutine  from  3000  (where  the 
program  is  directed  by  line  2110)  the  entire  buying  and  selling 
occurs.  Before  3000  is  called  again,  by  line  2140,  b$  is  set  equal 
to  “sell”.  The  word  assigned  to  b$  determines  the  word  which 
is  assigned  to  s$  (either  “buy”  in  line  3030  or  “sell”  in  the 
following  line).  Both  b$  and  s$  are  used  in  the  print  lines  from 
3150,  where  you  are  told  that  “Trader  1  wishes  to  buy...”  or 
“Trader  1  wishes  to  sell...”. 

The  year  (w)  is  incremented  in  line  2150,  and  the  next  line 
checks  to  see  if  20  years  have  elapsed  since  the  game  began.  If 
they  have  (and  w  is  not  less  that  2120,  as  checked  by  2160)  the 
program  ‘falls  through’  to  the  next  line,  where  the  final  report 
is  generated :  “' You  have  arrived  in  port ...”  and  so  on,  until  you 
are  told  how  much  profit  you  made  (line  2300).  The  ‘best  profit 
so  far’  is  calculated  (the  best  profit  is  assigned  to  variable  i). 
The  CAPS  LOCK  is  turned  on  by  the  POKE  in  line  2350  (it  has 
the  opposite  effect  to  the  POKE  in  1015)  so  that  the  answer  to 
the  question  “Do  you  want  to  play  again?”  (asked  in  line  2400) 
can  be  either  a  “Y”  or  an  “N”.  If  you  answer  “Y”,  the 
program  goes  to  line  1000,  which  ensures  that  i,  the‘best  profit 
so  far’  variable,  is  not  reset  in  line  910.  The  functions  do  not 
need  to  be  redefined  either,  so  they  are  missed  out  (all  DEFFN 
lines  are  before  1000). 
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20©  LET  pa  =0 
12©  LET  in=6 
12©  GO  SUB  700© 

23©  DEF  FN  r  f.X )  =INT 
14-0  DEF  FN  S  (X)  =INT  ftS-XJ+2 
IS©  PRINT  RT  21,6;“GalactiC  GfO 
c  e  r  ” 

WS©e  RfiNDDNIZE 
910  LET  i =0 
1000  £>IM  C$121  ,20's 
1005  DIM  O  iSli  ' 

2010  DIM  t  f22.> 

1015  POKE  23656.,  0:  REM  CAPS  OFF 
2@20  DIM  *Bf22> 

2025  RESTORE 
2030  DIM  p  122  > 

104-0  FOR  3=2  TO  21 
204-5  BEEP  -2.,  3 
2050  RERD  3$ 

2060  LET  t  ( a  A  =LEN  3$ 

207©  LET  CSO)  =3  $ 

2075  PRINT  RT  3..  3.;-*" 

20S0  NEXT  3 

2090  FOR  3=2  TO  22 

2  200  IF  3  •; 6  THEN  RERD  m  i3>  :  NEXT 

111®  LET  m  fa) 

1XB®  NEXT  B 

*1  i  isrfTO  zt  —  i  Tfi  D1 

2235  BEEP  -2. .21-3 
224-0  RERD  P  (a> 

1250  IF  RND > .35  THEN  LET  c MBJ»FN 
«.  i  20000A 

2  255  PRINT  RT  3  32 -b;  "3-" 

2 IS©  NEXT  3 
2165  GO  SLID  6500 
2270  LET  W  =2200 

126©  LET  JB=2©©00#FN  s  (20008i 
229©  GO  SUB  5©00 
2295  LET  j 2=J 

2©0©  LET  p a  =© .-  LET  in  =6.*  GO  SUB 
7000  ■  -  . 

202©  PRINT  "VWWW  Galactic  Gro 

2620*  G^^UB  S000 

204-0  PRINT  "Year  ";TPB  20; » 

2050  PRINT  "Money  - ; TRB  9; » 

2060  PRINT 

2070  FOR  3=2  TO  22 

206©  IF  O  fS)  <>@  THEN  PRINT  o  fa)  ; 
TRB  20;  c$  fa.v 
2090  NEXT  3 
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510®  LET  h$  =  "  buy" 

211©  GO  SUB  30®0 
513©  LET  b$=“£eU” 

514-0  GO  SUB  3000 
5 IS®  LET  W=W+1 

SIS®  IF  W  <512©  THEN  GO  TO  2B©0 
517®  GO  SUB  5000 
2180  LET  J  2  =  i 

520©  LET  pa=l;  LET  in =7:  GO  SUB 
7©e© 

521©  PRINT  “You  have  arrived  in 
port." 

'222©  PRINT 

222S  LET  2  —  J 1 :  GO  SUB  4-500 
523®  PRINT  “You  Started  out  with 
£  "  ;  ~z  & 

524.0  PRINT  “WOfth  Of  QOOdS- " 

524-5  LET  Z=J2:  GO  SUB- 4- SB® 

525®  PRINT 

52S©  PRINT  "You  now  have  £";is 
527©  PRINT  “worth  Of  goods" 

2230  PRINT 

525©  LET  V=INT  (  l  j2-Jl>  s  jlilSEff 
53©©  PRINT  “YOU  made  FLfiSH  1} 

V :  FLASH  © ; “%  profit" 

232©  IF  a  < V  THEN  LET  i =V 
233©  PRINT 

534.0  PRINT  “Best  SO  far  is 

y  U  *  * 

235©  POKE  23653,8:  RE.H  CAP’S  LOCK 
54-0®  PRINT  AT  21,©;  "Do  you  want 
to  play  again? " 

24.05  LET  g*=INKEY*:  IF  g*J>'*Y"  A 

ND  <?*-J>"N"  THEN  GO  TO  24-05 

24-1®  IF  q*="Y”  THEN  GO  TO  1®0© 

54-20  STOP 

300©  PRINT 

301©  LET  n=FN  £{5.) 

3©30  LET  s*="buu“ 

304-0  IF  b$  =  "buy"  THEN  LET  S$=“S£ 
L  l  “ 

30-45  PRINT  FLASH  1;  "There  i&re  **; 
n:"  traders  wishing  to" 

3©5®  PRINT  FLASH  1;  s$;  ”  s{f»e  goo 
is" 

3055  print  at  21,19; "press  any  fc 

p  y  11 

3©S0  IF  INKEY$0"  "  THEN  GO  TO  30 
3062  IF  INKEY* =" "  THEN  GO  TO  306 
3065  GO  SUB  B0®0 


GETTING  STARTED  ON  YOUR  ZX  SPECTRUM 


100 

3070  FDR  a =2  TO  D 
3@72  GO  SUB  8000 
3075  LET  f  =FN  s  I*3.> 

3080  LET  X=FN  f 121) 

3085  IF  f  =1  THEN  GO  SUB  4-000:  IF 
X  =0  THEN  GO  TO  327® 

3000  LET  y  =FN  5-  J 10O00 A 
3095  LET  P  =FN  5-  (y.l 
3X00  LET  2  =FN  r  1100) 

311®  GO  SUB  6000 

314-0  LET  2  =INT  (2  3p  (X  J  >  y  100 

314-5  GO  SUB  4-50B 

315©  PRINT  "Trade/-  *i£-be.& 

to 

sis©  print  p;  "  to  ";y;"  ";c$(x, 

TO  i  (x)  "  at  ** 

317®  PRINT  each" 

3180  PRINT 

3190  PRINT  “{You  have 
3195  PRINT  "(YOU  have  ";o(xl;“  " 

c$  tx,  TO  l  (XJ»  5  ;  *\>  ** 

3200  GO  SUB  7S00 

3285  INPUT  “How  many  to  *■; { b$i ; " 
?  ";u$ 

3210  IF  U$=” "  THEN  GO  TO  327® 
3215  LET  U=URL  US 

322®  IF  U  <P  OR  u  >y  THEN  GO  TO  32 
0® 

3225  IF  b$=,,selt”  THEN  LET  U  =-U 
3230  IF  U  < -O  tX >  THEN  GO  TO  3200 
324-0  IF  ta  -u  *2  <  =0  THEN  GO  TO  319® 
325©  LET  m  =J»  -Li  S-Z 
3260  LET  o  (XJ>  =t>  (X3  4-U 
3270  NEXT  a 

3275  IF  n =©  THEN  FOR  h =1  TO  150: 

NEXT  h 
328©  RETURN 
4.000  GO  SUB  6©3© 

4-®05  PRINT  "Trader  a;  "  says.-—" 
4-01®  print  "What  do  you  uant  to 

**  '  W  tEe  *  *  *  ■f*Y  ** 
l?  ?!/  * 

4020  INPUT  2  $ 

4025  IF  IS  =  “"  THEN  LET  X  ss©:  RETU¬ 
RN 

4®30  FOR  b=l  TO  21 

4©4-®  IF  I$  =  C$  ifc^i  Ifc j  TO  (LEN  2$^- 
a  Ibl  -a.U  THEN  LET  X  =  b :  GO  TO  4-1© 

4050  NEXT  b 
4B60  PRINT 
408®  GO  TO  402® 
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4-3.00  IF  AND  <  -  3  THEN  LET  X  =fc:  RET 
URN 

4105  SO  SUB  604-© 

4-13.0  PRINT  "For  ry.,  Tred£-.f  ";B;n 
does-  not  ut sr/t  to  ";£■$}"  ar#y 
Os^m  t  fcO  TO  3 
4120  LET  X  =0 
4-130  RETURN 
4500  LET  Z$=STfl$  X 
4-510  FDR  r=l  TD  LEN  Z$ 

4-520  IF  z^fr 3  =*■,■'  AND  r=LEH  z*  T 
HEN  RETURN 

4-530  IF  2$ffJ  =  AND  r  =LEN  Z$-l 

THEN  LET  Z$=Z$  +  *,0” 

454-0  NEXT  r 
4550  RETURN 
5000  LET  J =© 

5010  FOR  a  =  1  TO  21 
3020  LET  J  =  J  +o  I'  a  .1  itp  {  a  3  *2 
5030  NEXT  S 
5040  LET  J  =  J  4-» 

5050  RETURN 
5000  PRINT 
5060  RETURN 
7000  PAPER  pa 
7010  INK  i  n 
7020  BORDER  pa 
7030  CLS 
7040  RETL«RN 

7500  LET  PO=FN  r f2BA -FN  r  i‘2£U 
7510  SEEP  ,3,RO 
7520  BEEP  ,3,f)d+S 
7530  RETURN 

3000  IF  J$  =  "seU"  THEN  LET  pa=5: 

LET  i  ri  =0 ;  GO  SUB  7000:  RETURN 
3010  LET  pa =2:  LET  i n =7 :  GO  SUB 
7000 

3020  RETURN 
3500  BORDER  2 
3510  BEEP  ,4^1 
552^  SO&D&R-  5 
3530  BEEP  ~2<-i 
3540  BORDER  4 
3550  BEEP  1,6 
3550  BORDER  0 
3570  RETURN 
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*  JP 


a e 


3000  DPiTfi  "tons  COS  l  dust 
orange  pee  l  "  “Kg  grai  n“ ..  "ga  i  lo 
silicon  ink".,  "bars  reject  so  a 
-  "s®  ar  t  i  es  "ex  —diet  a  tors  '* *’te 

-tubes".,  "TU  sets"  "  fish" 

3©10  D-fSTiR  "&issi  tes"  -  "aspi  dist 


3020  DAT*)  £>  ,  5 , 4-  9  ,  S 
3©30  DATA 

558x3,1033/4.,  .l,5,1.5,10,l,,5,.l 

/  v*V  /  MZ  «m> 


«‘t*  flu«i 


CHAPTER  TWELVE 
LIVING  MORE 

PHI  fYI  TU17TTT  T  V 

v/ U.Lj vJ  U  JKjC  jl 


You  have  a  colour  computer  on  your  hands,  and  you  should 
make  the  most  of  it.  We’ll  start  our  investigation  of  ways  of 
improving  your  programs  by  referring  back  to  the  FAST 
FOOD  program  which  was  first  introduced  in  chapter  four. 


We  have  been  using  colour  statements  in  many  of  the  programs 
you’ve  encountered  so  far  in  this  book,  so  you  may  well  have  a 
pretty  good  idea  of  how  to  use  the  facilities.  You’ll  see  the 
names  of  the  colours  above  keys  1  to  7 .  These  are  very  easy  to 
use.  To  get  the  computer  to  print  words  in  red,  for  example, 
you  just  preface  the  word  with  INK  2  (because  RED  appears 
above  the  2  key).  You  use  INK  1  to  get  blue  letters,  and  so  on. 


Here’s  a  version  of  FAST  FOOD  which  chooses  colours 
randomly  before  the  PRINT  statements: 

2.©  REM  FRST  FOOD 

2 0  INPUT  “ENTER  RRNDQMIZE  SEED 

25*  RANDOMIZE  R 
3©  i_ET  R  =  INT  (RNDSf-43  +1 
35  LET  B=INT  CRN© *5} + 1 
37  PRINT  " - "R  IS  “iRi"  B  IS 

**  '  £5 

i©  PRINT  INK  B;  "YOU'VE-  ORDERED 

1  * 

5©  IF  R=1  THEN  PRINT  INK  B/2; “ 
R  HAMBURGER  WITH  THE ,  LOT*** 
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6©  IF  ft  =2  THEN  PRINT  INK 
;  "ft  LftRGE  FRENCH  FRIES" 

7©  IF  ft  =3  THEN  PRINT  INK 
;  "ft  SERVE  OF  RIBS" 

8®  IF  ft  =4-  THEN  PRINT  INK 
O  HOT  DOGS  WITH  KETCHUP" 

9@  PftUSE  4-0 
10©  GO  TO  20 


CB  +  li 
CB+1? 
B;  **TC4 


Local  colour  is  the  term  used  when  INK  and  PAPER  are  within 
a  PRINT  statement.  We  refer  to  PAPER  and  INK  which  effect 
the  whole  program  as  global  INK  and  PAPER.  Here  is  FAST 
FOOD,  global  style: 


41 


I©  REM  FRST  FOOD  WITH  GLGBRL 

INK  AND  PRPER 
PLUS  RANDOM  BORDER 

2©  RANDOMIZE 
3©  LET  ft  =  INT  (RND*4->  +1 
35  LET  B=INT  (RND*7> 

37  PRPER  B:  CLS 

38  BORDER  RND*7  _  _ 

39  PRINT  ' ' "R  IS  B  IS 

*  13 

4-0  PRINT  '  '  "YOU  '  VE  ORDERED'** 

50  IF  ft =1  THEN  PRINT  "ft  HftHBUR 
SER  UITH  THE  LOT" 

S©  IF  R=2  THEN  PRINT  "ft  LfiRGE 
FRENCH  FRIES" 

70  IF  ft =3  THEN  PRINT 
OF  RIBS" 

8©  XF  ft =4  THEN  PRINT 
DOGS  UITH  KETCHUP** 

9®  PAUSE  4® 

1@0  GO  TO  2© 


ft 


ft  SERVE 
TWO  HOT 


Now,  to  explain  the  use  of  things  like  colour  more  fully,  we  are 
going  to  take  a  simple  program,  and  gradually  elaborate  it, 
showing  how  adding  such  things  as  border  flashes  and  user- 
defined  graphics  can  add  a  great  deal  of  interest  to  your 
programs.  At  the  end  of  this  section,  we’ll  give  you  a  couple  of 
suggestions  to  apply  if  you  wish  to  keep  improving  and 
elaborating  the  program. 


The  program  we’regoing  to  use  as  the  core  of  our  development 
work  is  a  standard  ‘Duck  Shoot’  program,  in  which  little 
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objects  fly  across  the  screen,  and  you  have  to  try  and  shoot 
them  down.  In  the  first  version  of  the  program,  the  little  objects 
are  letters  chosen  at  random,  and  you  are  the  letter  “X”.  You 
fire  at  the  “ducks”  by  pressing  the  “F”  key,  and  you  move 
yourself  left  using  the  “5”,  and  right  using  the  “8”,  keys  (you 
move  in  the  direction  of  the  arrows  on  those  keys). 


Although  there  is  no  time  limit  on  this  program,  there  is  a  limit 
on  the  number  of  shots  you  can  fire.  In  all  of  the  versions  of  this 
game  in  this  part  of  the  book  you’ll  see  (line  30)  the  program 
starts  with  a  limit  of  1 5  shots .  In  the  last,  most  complex,  version 
you  will  have  50  shots.  The  number  of  shots  is  deliberately  kept 
low  in  the  first  versions  so  you  will  not  be  able  to  get  a  high  score 
just  by  leaving  your  finger  on  the  “F”  key,  and  waiting  for  the 
ducks  to  fly  into  the  line  of  fire. 


Here,  then  is  the  first  program.  Type  it  into  your  computer,  and 
press  RUN  then  ENTER,  to  get  it  underway. 


1©  REM  DUCK  SHOOT 

2©  LET  SCORE  =© 

3©  LET  SHOTS a 15- 

4-©  LET  =  OK  SL  E>F  G 

PD  FGG  G 

3©  LET  R CROSS =15 

SO  LET  DOWN  =  3.4. 

?©  PRINT  RT  T.0;R$ 

B©  PRINT  RT  D0WN,RCR055-l; "  X 


30  IF  INKEY*=”F'*  THEN  LET  SHOT 
S=oHOTS-l :  IF  (OCROSS)  <>**  **  TH 

EN  LET  SCORE=SCORE+57:  LET  A$  tRC 
ROSS) ” 


1©0  PRINT  RT  0.,©;  “SCORE:  SCQR 

trr  j*  *  ux  v  ct  *  *  *  *  ^rr  *  t  x^x****  a  *  *  *■  ^  a  * 

d.  jt  OnU  I  D  I  *  ji  wtlw  1  wjt 

110  XF  SHOTS  < 1  THEN  PRINT  RT 
S  0.:  "  THRT "  S  THF  END  -Of “"THE  C3RH 

,  CTA  O  * 

-  W  t 


12©  LET  RORQSS=RCROSS+ t INKEY *= 


S")  -  C INKEY $=*’5") 

130  LET  R$=R*t2  TO  ) +R$ ( 1) 
14-©  GO  TO  ■?© 
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You’ll  see  the  letters  which  are  held  in  A$  (see  line  40)  moving 
across  near  the  top  of  the  screen.  You  (the  “X”)  will  be  in  about 
the  middle  of  the  screen  when  the  program  starts.  You  can  —  as 
I  mentioned  a  few  moments  ago  —  move  yourself  back  and 
forth  using  the  “5”  and  “8”  keys  to  get  yourself  into  the 
position  which  you  think  gives  you  the  best  possible  chance. 
When  you  judge  a  “duck”  is  directly  overhead,  press  the  “F” 
key  to  fire  your  patented  anti-duck  missile.  The  number  after 
the  words  SHOTS  LEFT  (in  the  top  right  hand  corner  of  the 
screen)  will-  decrease,  and  if  you  have  been  accurate,  the 
number  after  the  word  SCORE  in  the  top  left  hand  corner  of 
the  screen  will  increase. 

Note,  by  the  way,  that  we  have  deliberately  used  explicit  names 
for  the  variables  within  this  program.  This  is,  the  variable  name 
for  the  scores  is  SCORE,  for  shots  left  it  is  SHOTS,  for  your 
position  down  the  screen  DOWN,  and  for  your  position  across 
the  screen,  the  variable  name  is  ACROSS.  Even  though  it  takes 
a  little  longer  to  type  long  variable  names  into  a  program  and 
(of  course)  they  use  up  more  memory  than  do  shorter  names, 
running  out  of  the  memory  is  rarely  a  problem  on  your 
computer,  and  the  advantages  of  using  explicit  names  to  keep 
the  purpose  of  various  parts  of  the  listing  clear  outweighs  the 
extra  time  it  takes  to  type  them  in.  If,  for  example,  you  were 
writing  a  program  like  this  and  you  decided  that  it  would  be 
better  if  the  “X”  was  printed  slightly  further  down  the  screen, 
you  would  not  have  to  search  through  the  program  to  work  out 
which  variable  held  your  *  ‘down’  ’  co-  ordinate.  If  you  had  used 
the  explicit  names  as  in  this  case,  you  would  find  it  very  easy  to 
locate  the  variable  you  were  looking  for. 

Run  the  DUCK  SHOOT  program  a  few  times,  then  return  to 
the  book  for  the  first  part  of  our  discussion  on  it.  Note  that 
CAPS  LOCK  must  be  engaged. 

Line '40  defines  the  string  variable  A$  as  a  long  series  of  letters 
and  spaces.  The  letters  can  be  anything  you  like;  don’t  feel  you 
need  to  copy  ours.  The  important  thing,  however,  is  that  the 
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string  is  32  characters  long.  You  can  check  this  by  running  the 
program  briefly,  stopping  it  with  BREAK,  then  typing  in  as  a 
direct  command,  PRINT  LEN  A$  (you’ll  find  LEN  .in  green 
above  the  K  key,  and  —  as  you  know  —  you  get  the  words 
above  the  keys  by  pressing  down  both  CAPS  SHIFT  and 
SYMBOL  SHIFT  at  once,  then  touching  the  key).  If  your 
string  is  the  correct  length,  PRINT  LEN  A$,  followed  by 
ENTER  will  give  you  the  answer  32. 

The  appearance  of  movement  given  to  the  ducks  is  created  by 
use  of  Sinclair  BASIC’s  string-handling  commands  which  were 
explained  a  little  earlier  in  the  book.  Refer  back  to  this  section 
now  if  you  need  to  remind  yourself  of  how  they  work.  The  vital 
line  for  the  movement  is  line  130,  which  resets  A$  equal  to  all  of 
the  string  without  its  first  character,  that  is,  LET  A$  ( 2  TO), 
and  then  adds  to  the  very  end  of  it  the  character  of  the  string 
which  was  at  the  beginning,  A$(l).  The  string  is  reprinted,  over 
and  over  again,  as  the  program  runs  (by  line  70)  in  the  same 
position,  at  7,0  (eight  lines  down,  and  starting  hard  in  the  left 
hand  margin),  and  because  the  string  is  in  effect  being  ‘shifted 
along’  one  character  at  a  time  before  it  is  reprinted,  the 
elements  in  the  string  appear  to  move  smoothly  along.  Using 
strings  in  this  way  is  one  of  the  simplest  ways  there  is  on  your 
computer  to  create  smoothly  moving  graphics. 

The  string  handling  also  makes  it  very  simple  to  cause  the  shot 
duck  to  disappear  from  the  sky.  As  the  string  is  32  characters 
long,  each  character  *  ‘shot”  can  be  referred  to  by  following  A$ 
with  a  number  in  brackets.  That  is  A$(l)  is  the  first  element  of 
the  string,  A$(2)  is  the  second  one  and  so  on,  until  A$(32)  is  the 
very  last  spot  within  the  string. 

Look  at  line  90.  When  the  computer  comes  across  an  IF7THEN 
statement  —  as  you  know  —  it  checks  to  see  if  it  is  true.  If  it 
finds  that  it  is  not  true,  then  it  moves  along  to  the  next  line  ift  thfe 
program,  without  bothering  to  carry  out  any  further 
instructions  which  may  be  on  the  same  line,  If  the  computer 
finds,  at  the  start  of  line  90,  that  INKEYS  does  not  equal  “F” 
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(that  is,  you  are  not  pressing  the  “F”  key)  then  it  proceeds  to 
line  100,  missing  all  the  information  and  instructions  which 
follow  the  IF  INKEY$  =  “F”  line.  If,  however,  you  are 
pressing  “F”  when  the  computer  gets  to  line  90,  it  continues 
working  through  the  line,  and  decrements  the  variable  SHOTS 
by  one.  Then  it  hits  another  IF/THEN  condition,  which  makes 
use  of  the  ability  of  the  Sinclair  BASIC  to  isolate  an  element  of 
a  string  instantly.  It  looks  at  A$(ACROSS).  The  “X”  which  is 
you  is  printed  at  ACROSS  (actually,  as  you  see  in  line  80,  a 
three-element  string,  with  a  space  either  side  of  the  “X”  is 
printed  at  ACROSS  minus  one,  which  has  the  effect  of  printing 
the  “X”  at  the  position  referred  to  by  the  variable  ACROSS,  so 
A$(ACROSS)  lies  directly  above  you. 


If  line  90  discovers  that  A$( ACROSS)  is  anything  but  a  space, 
you  have  hit  a  duck,  so  the  computer  continues  working 
through  the  line.  The  variable  SCORE  is  incremented  by  57 
and,  finally  in  line  90,  that  element  of  A$  is  set  to  a  blank,  so  the 
“duck”  disappears. 


Now  all  this  takes  some  time  to  explain,  but  you’ll  find  the 
computer  does  it  apparently  instantaneously.  You  press  “X” 
the  score  increases  by  57  (if  you’re  a  good  shot),  the  number  of 
shots  left  drops  by  one,  and  the  duck  disappears.  You’ll  see 
(line  1 10)  that  the  program  continues  until  then  you  run  out  of 
shots,  when  the  game  terminates.  Take  note  of  your  score  at 
this  point,  and  see  if  you  can  beat  it  in  subsequent  runs. 


Once  you  have  the  program  running  to  your  satisfaction,  and 
you  have  a  pretty  good  idea  of  how  it  works,  modify  it  to  read 
like  the  following  program.  You  do  not  have  to  NEW  the 
computer.  Just  compare  the  program  you  have  in  your 
computer,  line  by  line,  with  the  next  listing  and  make  any 
changes  you  need  to,  by  adding  a  complete  new  line  15,  and 
modifying  certain  other  lines. 
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18  REM  DUCK  SHOOT 

3.5  PRPER  7:  BRIGHT  I.-  CL  3  :  IN 

K  2 

20  LET  SCORE  =0 
30  LET  SHOTS  =  15 
4.0  LET  fi$  =  "ZRB  DK  SL  DF  G 
FD  FGG  G 

5©  LET  RCROSS=15 
6©  LET  DOOM  =14- 

78  PRINT  RT  7,0,  INK  RNDaSj R$ 
S3  PRINT  RT  DOUN,RCROSS-l;  INK 
2;  "  X  " 

9©  IF  INKEY$="F"  THEN  LET  SHOT 
o=5HOTS-l :  IF  R$ tRCROSS) < > ”  "  TH 

EN  LET  SCORE  =SCORE +57 ;  LET  R$ ( RC 
ROSS) ="  ” 

10©  PRINT  RT  0,0;  INUERSE  1;  "SC¬ 
ORE  :  FLRSH  1;  SCORE;  FLASH  0/: 

SHOTS  LEFT:  " ;  FLRSH  1; SHOTS;  FL 
RSH  © ;  ■*  ♦* 

11©  IF  SHOTS <1  THEN  PRINT  RT  1© 
©.:  "  THAT  '  S  THE  END  OF  THE  GRH 
-  STOP 

12©  LET  ACROSS  =fiCROSS+ (INKEY$  =  " 
S"J  - ( INKEY $  =  " 5 " .1 

13©  LET  A$=A$(2  TO  J+R$tli 
14-0  GO  TO  70 

Now  when  you  run  this,  you’ll  see  an  immediate  and  quite 
striking  improvement.  Colour  certainly  adds  a  lot  to  any 
program  on  this  computer.  Line  1 5  sets  the  PAPER  (that  is,  the 
background)  colour  to  white  (colour  number  7),  turns  the 
BRIGHT  control  (which  affects,  in  this  case,  the  entire  screen, 
both  INK  and  PAPER)  on,  clears  the  screen  so  that  the  PAPER 
and  BRIGHT  are  activated  (you  could  not  see  them  over  all  the 
screen  unless  you  have  included  the  CLS  command)  and 
finally,  sets  the  INK  colour  (the  colour  in  which  the  computer 
prints  on  the  PAPER)  to  red  (INK  colour  2). 


Even  if  we  had  done  nothing  else,  there  would  be  a  significant 
improvement  in  the  program.  You’d  have  the  score,  shots  left, 
ducks  and  the  “X”  all  printed  in  red  on  a  bright  white 
background  which  is  far  more  interesting  than  just  plain  old 
black  and  white. 
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However,  we  want  to  add  two  more  commands  to  the  program 
which  will  alter  the  display  for  the  better.  These  are  in  lines  70 
and  100.  In  line  70,  the  INK  RND*6  is  used  to  choose  a  colour 
at  random  between  black  and  yellow,  so  that  each  time  A$  (the 
ducks)  is  reprinted,  it  will  be  in  a  different  colour.  As  you’ll  see 
when  the  program  is  running,  the  change  occurs  so  rapidly  the 
ducks  appear  to  shimmer  through  the  spectrum  as  they  fly 
across  the  screen,  and  even  though  it  takes  the  computer  an 
appreciable  time  to  generate  a  random  number,  the  effect  on 
the  speed  of  the  program  appears  to  be  nil. 

You  are  probably  aware  that,  in  moving  graphics  programs, 
everything  you  get  the  computer  to  do  —  from  making  an 
IF/THEN  decision,  adding  two  numbers  together,  raising  one 
to  the  power  of  the  other,  to  generating  a  random  number  — 
takes  time,  and  the  more  you  get  the  computer  to  do  before 
each  subsequent  frame  of  a  moving  graphics  program  is 
printed,  the  more  slowly  the  graphics  will  move,  and  the  more 
jerky  they  will  appear. 

The  last  change  we’ ve  made  is  in  line  1 00,  where  FLASH  is  used 
to  make  sure  the  actual  number  of  score,  and  the  number  of 
shots  left  flash  off  and  on,  but  the  rest  of  the  line  does  not.  This 
is  why  there  are  so  many  FLASH  0  and  FLASH  1  commands  in 
that  line.  Leave  any  one  of  them  out  and  the  effect  is  ruined,  as 
you  can  easily  see  by  deleting  one  of  them  and  rerunning  the 
program. 

Apart  from  the  colour  changes  we’ve  discussed,  the  program  is 
the  same  as  the  first  listing.  However,  you  can  see  that  the  few 
changes  we  have  introduced  have  improved  it  considerably. 
Weil  now  continue  with  the  improvements,  by  adding  some 
sopnd,  and  getting  the  BORDER  (the  area  around  the  picture, 
or  PAPER  area)  to  flash  when  a  duck  is  shot. 

Enter  this  next  version  of  the  program,  run  it  to  decimate  a  few 
flocks  of  ducks,,  then  return  to  your  book  for  a  discussion  on 
the  program. 
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1©  REM  DUCK  SMOOT 

2.5  PAPER  7:  BRIGHT  1:  CLS  ;  Xfv 

2©  LET  SCORE  =0 

25  FOR  G  =  1  TO  £©:  BEEP 
NEXT  G 

3©  LET  SHOTS =15 

35  FOR  G  =50  TO  2©  STEP  -2:  BEE 
P  . 0©S  ^  G :  NEXT  G 

4-©  LET  fi$=MZRB  DK  SL  DF  G 
PC’  FGG  G  *’ 

5©  i_ET  RCROSS  =  lS 

60  LET  DQUN  =  14- 

7©  PRINT  RT  7 *  ©,-  INK  RND^S.;R$; 
BEEP  «  0©S  ,  { C-ODE  R$>  X2 

©0  PRINT  AT  DOWN  ,,  ACROSS- 1 }  INK 
2;"  X  **;  BEEP  « 003  j  ACROSS 
.  f©  XF  INK£Y$="F"  THEN  LET  SHOT 
S=SHOTs-l;  BEEP  .  0S  j,  3  JtSHOTS :  IF 
ASiACROSS)  O"  "  THEN  LET  SCORE  =S 
CORE +57:  BEEP  . 05  j,  50  — SHOTS ;  LET 
H*  CAUROSS3  ="  :  BORDER  RND*7 ;  BO 

RDER  RNI>*7 :  BORDER  RND*7:  BORDER 

100  PRINT  RT  0,©;  INVERSE  1; “SC 
ORE:  ■*;  FLRSH  1;  SCORE;  FLRSH  0 " 
SHOTS  LEFT;  **;  FLASH  1;  SHOTS;  FL 
0 ;  -1 

110  IF  SHOTS <1  THEN  PRINT  RT  1© 
"  THAT'S  THE  END  OF  THE  GRH 

E" :  STOP 

120  LET  RCROSS=BCROSS+  «INKEY$  =  *’ 
©'*)  -  {INKEY$  =  “S**) 

13©  LET  A$=A$CS  TO  )  +ft $ i 1 ) 
l-i©  GO  TO  70 

The  new  lines  are  25  and  35  which  use  the  BEEP  command  to 
create  two  “loops”  of  sound  before  the  program  gets 
underway.  As  you  know,  the  BEEP  command  has  two 
pa  ameters  (and  parameters  are  the  numbers  which  follow  a 
command  to  set  its  limits).  The  first  number  after  BEEP 
defines  the  duration  of  the  sound,  and  the  second  one  its  pitch. 
Refer  back  to  the  section  on  sound  if  you  wish  to  refresh  your 
memory  at  this  point. 


Line  25  is  a  loop,  using  G  as  the  control  variable.  The  loop  runs 
from  one  to  20,  and  each  value  of  G  is  used  in  the  second  part  of 
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line  25  to  create  a  tone,  which  —  because  G  is  increasing  —  rises 
rapidly.  The  duration  parameter  is  set  at  .008  which  is  close  to 
the  shortest  sound  which  we  have  found  which  can  be  heard 
clearly.  Line  35  produces  another  loop,  this  time  counting 
downward.  You’ll  discover  that  different  STEP  sizes  produce 
quite  different  types  of  loop  effects,  and  you  may  well  wish  to 
change  the  STEP  in  both  this  line  and  in  line  25. 

These  two  loops,  however,  are  little  more  than  “window 
dressing’  ’  designed  to  produce  a  good  starting  effect.  The  other 
BEEPs  used,  by  contrast,  are  related  to  other  things  happening 
within  the  program  when  it  is  running.  You’ll  see  that  a  BEEP 
line  has  been  added  at  the  end  of  line  70.  This  takes  the  CODE 
(the  number  which  the  computer  uses  to  refer  to  the  character 
being  printed,  so  PRINT  CHR$  42  produces  character  42, 
which  you  can  look  up  on  the  CODE/CHRS  section  earlier  in 
this  book)  of  the  first  element  of  the  string  A$,  that  is  the 
element  which  is  f urther  to  the  left ,  and  creates  a  tone  from  this . 
The  effect  of  this  is  to  produce  a  short  “beep”  just  before  a 
duck  flies  off  the  screen  to  the  left. 

You’ll  see  another  BEEP  command  at  the  end  of  line  80.  This 
one  is  sounded  every  time  the  program  cycles  and,  because  as 
the  variable  ACROSS  gets  bigger,  the  pitch  of  the  note  gets 
higher,  you’ll  find  that  moving  your  “X”  across  the  screen  to 
the  right  will  produce  a  constant  higher  tone,  while  moving  it  to 
the  left  will  lower  the  tone. 

Perhaps  the  most  interesting  sounds  are  in  line  90.  Firstly,  you 
get  a  BEEP,  related  to  the  number  of  shots  you  have  left,  every 
(itne  you  touch  “F”,  whether  you  hit  anything  or  not.  Run  the 
program,  and  hold  you  finger  on  “F”,  and  you’ll  hear  the  tone 
steadily  decrease  until  the  “THAT’S  THE  END  OF  THE 
GAME”,  message  appears.  The  next  part  of  line  90,  as  you 
knovir,.  checks  to  see  if  your  shot  has  hit  anything  (that  is,  it 
checks  to  see  if  that  particular  element  of  the  string  AS  is  not 
equal  to  a  space),1  and  if  it  finds  that  it  is  not  a  space  (that  is,  that 
a  “duck”  is  there,  and  has  just  that  instant  been  shot)  the 
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computer  —  as  well  as  increasing  your  score  by  57  —  BEEPs 
again,  with  a  tone  which  although  different  to  the  first  one  in 
the  line,  is  related  to  the  number  of  shots  left.  This  means  that  if 
you  have  a  successful  shot,  you’ll  hear  first  the  tone  (which  falls 
with  each  shot  fired)  from  the  first  part  of  line  90,  followed  by  a 
tone  (which  rises  as  the  SHOTS  variable  is  decremented)  which 
signals  that  a  duck  has  been  shot.  So  you  hear  two  tones,  in 
rapid  succession.  And  if  you’re  not  quick  in  taking  your  finger 
off  the  “trigger’  ’  you’ll  hear  a  third  one,  or  even  more. 

The  final  part  of  line  90,  which  changes  the  BORDER  colour 
four  times,  is  —  of  course  —  only  triggered  if  you’ve  downed  a 
duck.  It  has  the  effect  of  creating  BORDER  flashes  very 
quickly  in  random  colours,  before  reverting  to  white.  The  delay 
caused  by  this  flash  is  very  short,  and  gives  good  visual 
feedback,  to  back  up  the  feedback  from  the  BEEP  to  tell  you 
that  you’ve  bagged  another  duck. 

The  next  version  of  DUCK  SHOOT  we’U  look  at  is,  as  you  can 
see,  considerably  different  from  the  ones  we’ve  been  examining 
to  date.  At  the  very  least,  line  40  now  looks  extremely  strange. 
This  line  is  where  a  user-defined  graphic  (which,  believe  it  or 
not,  does  look  like  a  duck  when  the  program  is  running)  takes 
the  place  of  the  randomly-chosen  letters.  No  matter  how  hard 
you  look,  you  will  not  find  anything  that  looks  like  that  little 
duck  on  the  keyboard.  So  where  has  it  come  from? 

10  REM  DUCK  SHOOT 

as  GO  SUE  150 

15  PRPER  7:  BRIGHT  1:  CL. 5  :  IN 

£©  LET  SCORE =0 

S5  FOR  G=1  TO  S0:  BEEP  .008*6: 

NEXT  G 

30  LET  SHOTS =15 

35  FOR  G  =50  TO  £0  STEP  -£:  SEE 
P  . ©0S*G:  NEXT  G 

4.0  LET  =  4*  4*  '•****£ 

5©  LET  ACROSS = 15 

50  LET  DOWN  =  14. 

7©  PRINT  RT  7*@;  INK  RN04-S; 

BEEP  . 008 , 55 -SHOTS 
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S0  PRINT  AT  DOWN, ACROSS -1;  INK 
s;  **  X  **:  BEEP  ,©@S,  ACROSS 
90  IF  INKEY$  =  ‘T"  THEN  LET  SHOT 
S=SHOTS~l :  BEEP  -OS, 3* SHOTS;  IF 
fi$(flCKOSS)  <>”  **  THEN  LET  SCORE =S 

CORE +57:  BEEP  . 05  ,  50 —SHOTS :  LET 
R$  tRCROSSJ  =*■  BORDER  RND$7;  BO 

RDER  RND*7:  BORDER  RND*7:  BORDER 


100  PRINT  AT  0,0;  INVERSE  I;  "SC¬ 
ORE:  “i  FLASH  I; SCORE;  FLASH  0 , " 
ggOTg  LEFT :  FLASH  I;  SHOTS;  FL 

13.0  IF  SHOTS  <1  THEN  PRINT  AT  10 
THAT'S  THE  END  OF  THE  GAM 

120  LET  ACROSS = AC R OSS +  ( INKEY$  = 

5 "  J  -  t  INKEV *-=  "5") 

IS©  LET  R$=A$ (2  TO  ) +R$T1) 

14.0  GO  TO  70 
150  FOR  A=0  TO  S 
IB©  READ  B 

17©  POKE  USR  "A” +A,B 
IB©  NEXT  A 

■»  oa  oirri  ibki 


19©  RETURN 

2©0  DATA  0,4-,  73,222,  S2,S,  0,0 


The  duck  has  been  “user-defined” .  User-defined  graphics  are 
one  of  the  really  great  features  of  your  computer,  and  — 
although  certain  other  computers  have  similar  features  —  few, 
if  any,  are  as  simple  to  use  as  the  one  on  your  machine. 


It  is  very  simple  to  define  a  graphic.  We’ll  take  you  through  the 
way  we  created  the  alleged  duck,  and  from  this  explanation  you 
should  be  able  to  produce  anything  you  like.  The  key  to  the 
user-defined  graphics  is  an  eight  by  eight  grid  like  this  one: 
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To  work  out  your  graphic,  you  simply  fill  in  the  squares  on  this 
grid  which  you  wish  to  print  as  solid  dots  in  the  final  graphic. 
Our  duck  (in  grid  form)  looks  like  this: 


If  you  look  to  the  lines  from  140  and  following  in  the  most 
recent  listing  of  DUCK  SHOOT,  you’ll  see  a  little  loop,  which 
includes  a  READ  statement  and  (line  170)  the  disturbing- 
looking  line  POKE  USR. . .  and  so  so.  There  are  21  user- 
definable  graphics  on  your  computer,  and  you  print  them  by 
getting  into  the  graphics  mode  (so  the  cursor  becomes  a  G)  and 
then  pressing  the  keys  from  A  to  U.  They  will  look  just  like  the 
ordinary  letters  until  they  have  been  redefined.  In  fact,  when 
line  40  was  first  typed  in,  it  was  made  up  from  a  number  of  the 
letter  “A”,  entered  while  the  computer  was  in  the  graphics 
mode,  separated  by  spaces. 

Once  you  have  a  filled  in  grid  like  the  one  we’ve  just  looked  at, 
you  have  to  get  the  numbers  (such  as  the  ones  in  the  DATA 
statement,  line  200)  to  POKE  into  the  letter  so  it  will  come  out 
as  a  graphic .  It  is  simple  to  do  this .  On  the  bottom  row  of  kepi* 
above  the  B  key,  you’ll  see  the  word  BIN,  which  standSifor 
binary.  Each  row  across  our  eight  by  eight  grid  can  be 
represented  by  a  single  binary  number,  where  an  empty  square 
is  a  zero  and  a  filled-in  square  is  a  one.  You  indicate  that  you  are 
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talking  about  a  binary  number  by  preceding  it  with  the  word 
BIN .  I’ll  now  give  you  the  BIN  numbers  for  each  row  of  squares 
on  the  duck  grid.  Compare  them  with  the  filled-in,  and  empty 
squares,  until  you  understand  how  they  compare: 


BIN 

0 

0 

0 

0 

0 

0 

0 

0 

BIN 

0 

0 

0 

0 

0 

0 

0 

0 

BIN 

0 

0 

0 

0 

0 

1 

0 

0 

BIN 

0 

0 

0 

0 

0 

1 

0 

0 

BIN 

0 

I 

0 

0 

1 

0 

0 

1 

BIN 

0 

1 

0 

0 

1 

0 

0 

1 

BIN 

1 

1 

0 

1 

1 

1 

1 

0 

BIN 

1 

1 

0 

1 

1 

1 

1 

0 

BIN 

0 

0 

1 

1 

1 

1 

1 

0 

BIN 

0 

0 

1 

1 

1 

1 

1 

0 

BIN 

0 

0 

0 

0 

1 

0 

0 

0 

BIN 

0 

0 

0 

0 

1 

0 

0 

0 

BIN 

0 

0 

0 

0 

0 

0 

0 

0 

BIN 

0 

0 

0 

0 

0 

0 

0 

0 

BIN 

0 

0 

0 

0 

0 

0 

0 

0 

BIN 

0 

0 

0 

0 

0 

0 

0 

0 

If  you  look  at  this  pattern  of  ones  and  zeros,  you’ll  see  they 
correspond  with  the  squares  on  our  grid.  Now,  to  convert  them 
to  decimal  numbers  (which  are  easier  to  manage)  to  include  in 
our  DATA  line  (line  200),  we  simply  type  in  directly  PRINT 
BIN  00000000  for  the  first  line,  and  a  0  appears.  Take  note  of 
this  0.  Then,  try  the  second  number,  by  typing  in  directly 
PRINT  BIN  00000100,  which  is  4  in  decimal.  Note  down  the  4. 
Continue  to  do  this,  working  through  each  line  in  turn.  This 
will  give  you  a  sequence  of  eight  numbers:  0, 4, 73, 222, 62, 8, 0 
and  0. 


You  put  these  in  the  DATA  statement,  and  include  in  line  1 70, 
within  the  quote  marks,  the  letter  you  wish  to  redefine.  Then, 
by  simply  running  the  program,  the  designated  key  will  change. 
From  now  on,  whenever  you  press  the  “A”  key  after  getting 
into  the  graphics  mode,  the  little  duck  will  appear  instead  of  an 
“A”.  Although  the  duck  will  not  survive  you  turning  off  the 
computer,  it  will  survive  a  NEW,  so  you  can  use  graphics 
defined  outside  a  program  within  one  if  you  wish  to  use  it 
subsequently.  The  graphic  will  be  saved  when  you  save  the 
program.  Note  by  the  way,  that  there  is  a  change  to  the  end  of 
line  70  in  this  version  of  the  program  with  the  user-defined 
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duck.  Try  working  out  a  duck-shape  of  your  own,  on  a  grid  you 
have  drawn  up  yourself,  and  enter  the  required  numbers  in  line 


200. 


The  final  version  of  this  program  we  will  discuss  has  three  rows 
of  flying  ducks.  It  is  best  to  aim  at  the  middle  row  of  ducks 
(which  fly  more  quickly  than  the  bottom  row)  because  they  are 
worth  5 17  points,  as  opposed  to  the  57  that  each  of  the  ducks  on 
the  bottom  row  is  worth.  The  to 
row  of  ducks  is  just  there  to  confuse  you.  They  disappear 
automatically  as  the  ducks  in  the  middle  row  are  shot,  but 
cannot  be  shot  directly,  and  do  not  contribute  to  your 
score. 


The  middle  row  of  ducks  is  held  in  the  string  B$  which  is 
set  equal  to  AS  in  line  45,  as  you  can  see  in  the  listing: 

1©  REM  DUCK  SHOOT 
3.2  GO  SUB  3.5© 

15  PRPER  7:  BRIGHT  1:  CLS  ;  IN 
o 

20  LET  SCORE=© 

25  FOR  G  =  1  TO  2©:  BEEP  .©0S/G: 
NEXT  G 

'so)  i  pt 

OK*  f  Q n U  I  w 

35  FOR  Gs=5©  TO  20  STEP  -2:  BEE 
P  »  003  ..  G :  NEXT  G 

4-0  1_ET  **  «<«*** 

4-5  L.ET 

5©  LET  OCROSSaiS 
S©  LET  DOUN=14 

7©  PRINT  RT  7,0;  INK  RND*S;R$.: 
RT  5.©;B$;RT  4./0;B$<3  TO  >+B$tl 
TO  25  :  BEEP  . 00S / 55  —SHOTS 

S©  PRINT  RT  DOWN , RCROSS - 1 ;  INK 
2  ;  **  X  BEEP  .  008  ..  RCROSS 

90  IF  INKEY  $  s=  *'  F  THEN  L.ET  SHOT 
5=SHOTS-l :  BEEP  .05 /SHOTS:.  IF  R$ 
(ACROSS)  <>"  **  THEN  L.ET  SCOREsSCO 

RE +57:  BEEP  . 05 , 5© -SHOTS :  LET  R$ 
(ACROSS)  ="  **:  BORDER  RNDS-7 :  BORD 

ER  RND#7:  BORDER  RND*7:  BORDER  7 
GO  TO  I©© 

35  IF  INKEY$="F"  THEN  BEEP  .05 
.SHOTS:  IF  B$ tRCRDSS> < > "  "  THEN_ 

Let  SCORE =SCORE +517:  BEEP  .05/50 


118 


GETTING  STARTED  ON  YOUR  ZX  SPECTRUM 


-SHOTS :  LET  B$ (flCROSS) a"  BORO 

ER  RND*? :  BORDER  7 
100  PRINT  RT  0,0;  INUERSE  1;  "SC¬ 
ORE:  **;  FLUSH  l;SCORE;  FLASH  0,” 
SHOTS  LEFT  :  ;  FLASH  1;  SHOTS;  FL. 

ASH  0;  ** 

II©  IF  SHOTS  < 1  THEN  PRINT  RT  1© 
#©;"  THAT'S  THE  END  OF  THE  BRH 
E” :  STOP 

3.20  LET  RCROSS-RCROSS+  f  INKEY $=" 
S" I  -  { INKEY$  =  "5*‘> 

130  LET  r|=R$C2  TO  )  +R$  ID 

135  LET  B$=B$t3  TO  i «-R$ (I  TO  2J 

14-0  GO  TO  70 

15©  FOR  R=©  TO  B 

16©  READ  B 

17©  POKE  USR  "R**+R,B 
IS©  NEXT  R 

1  Qffl  pCTI  IDM 

200  DfiTfi  0 , 4- , 73  222 *  62 ,S^0/0 


*4?  4^^ 


x 

Note  that  you  must  change  the  BEEP  in  line  90.  The  middle  row 
Of  ducks  is  shot  at  in  line  95.  If  you  shoot  a  duck  in  the  bottom 
row,  your  shot  ends  there.  After  all,  you  cannot  expect  it  to 
corttiiiue  on  to  get  a  duck  from  the  middle  row  as  well.  The  GO 
TO 100  at  the  end  of  line  90  ensures  this  does  not  happen. 

‘  *  -U.4- 

affr  ‘  Jf  '  $  ' 

■ti.^ 

Line  135  moves  the  middle  and  top  rows  of  ducks,  changing  the 

t  ■  jjj'n  ■'  '  .■ 

ifeiaents  ip.the  strihg  hy  an  extra  element  compared  to  the 
changes  p^uMng  'inJIpe  130.  Line  70  prints  ail  three  rows  of 
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ducks,  “inventing”  the  top  (dummy)  row  by  printing  B$  out  of 
register,  so  the  ducks  there  appear  ahead  of,  although  flying  in 
a  synchronisation  with,  those  in  the  middle  row.  This  will  be 
clear  when  you  run  the  program. 

That  brings  us  to  the  end  of  this  series  of  DUCK  SHOOT 
games.  There  are  four  things  you  can  do  to  further  develop  the 
program: 

—  Cut  the  number  of  shots  available  down  to  make  it  more 
challenging 

—  User-define  the  man,  so  it  is  not  just  an  “X” 

—  Add  a  “high  score”  feature,  so  the  game  will  restart, 
preserving  a  high  score  you  can  try  and  better 

—  Allow  the  computer  to  detect  when  all  the  A$  and  B$  ducks 
have  been  shot  (that  will  happen  when  A$  and  B$  are  just  32 
spaces  long,  and  contain  nothing  but  spaces)  and  add  a  bonus 
to  the  score  if  this  occurs  before  all  the  shots  have  been  fired. 


CHAPTER  THIRTEEN 
GETTING  LISTED 


An  array  is  used  when  you  want  to  create  a  list  of  items,  and 
refer  to  the  item  by  mentioning  just  which  position  in  the  list  it 
occupies.  You  set  up  an  array  by  using  the  DIM  (on  the  D  key) 
command.  If  you  type  in  DIM  A(5),  the  computer  will  set  up  a 
list  in  its  memory  called  A,  and  will  save  space  for  five  items: 
A(I),  A(2),  A(3),  A(4)  and  A(5).  These,  by  the  way,  are  called 
elements  of  the  arrray. 

When  you  dimension ,  or  set  up,  an  array,  the  computer  creates 
the  list  in  its  memory,  and  then  fills  every  item  in  that  list  with  a 
zero.  So,  if  you  said  to  the  computer,  PRINT  A(l)  or  PRINT 
A(4)  it  would  come  back  with  0.  You  fill  items  in  an  array  with 
LET  (such  as  LET  A(2)  =  1000)  or  using  READ  and  DATA  as 
we  saw  in  chapter  eleven.  Once  you’ve  filled  a  position  in  the 
list,  whether  you  filled  it  with  LET  or  READ,  you  can  get  the 
computer  to  give  you  the  contents  of  that  element  of  the  array, 
by  simply  saying  PRINT  A(2). 

3R^fxt. program  dimensions  (this,  as  we  said,  simply  means 
ssp-upif  dr  creates)  an  array  called  A,  with  room  for  fifteen 
dements.-  The  B  loop  from  lines  30  to  50  fills  the  array  with 
random  digits  between  zero  and  nine,  and  then  prints  them 
back  for  you  wfth  the  loop  from  lines  70  to  90. 

1©  REM  RRRRYS 
a©  DIM  fi  t  IS) 

.3®.  FOR  TO  IS 

4.®  LET  #3  t'B)  sINT  t RND 3F S 1 

5©  NEXT  B 
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S©  FOR  Z  =  1  TO  15 
7©  PRINT 
SS  PROSE  4-0 
90  NEXT  Z 


;  R  f  Z) 


This  is  called  a  one-dimensional  array,  because  a  single  digit 
follows  the  letter  which  “labels”  the  array.  You  can  also  have 
multi-dimensional  arrays,  in  which  more  than  one  number 
follows  the  array  label  after  DIM.  In  the  next  program,  for 
example,  the  computer  sets  up  a  two-dimensional  array  called 
A,  consisting  of  four  elements  by  four  elements  (that  is,  it  is 
dimensioned  by  DIM  A(4,4)  as  you  can  see  in  line  20): 

i©  REM  MULTI -B  RRRRYS 
20  DIM  R  (4/4-3 
30  FOR  B=1  TO  4- 
4-©  FOR  C  =  1  TO  4. 

5©  LET  R (B / 05  =  INT  fRNB*9J 
SO  NEXT  D 
7©  NEX i  6 

SO  PRINT  INVERSE  12"  1  B  3  4." 

20  FOR  B=1  TO  4- 

95  PRINT  INVERSE  lj B; "  XNVE 

RSE  0; 

IS©  FOR  0  =  1  TO  4- 
110  PRINT  R(B,C-y;"  “2 

120  NEXT  C 
13©  PRINT 
14-0  NEXT  B 


When  you  run  it,  you‘11  see  something  like  this: 


You  specify  the  element  of  a  two-dimensipnal  array 1  by 
referring  to  both  its  numbers,  so  the  first  element  of  this  array 
(the  number  7  in  the  top  left  hand  corner  of^iiepnntput  above) 
can  be  referred  to  as  A(1 , 1).  The  0  at  theendjof  fheiihe  is  A(I>4) 
and  the  8  on  the  bottom  row  is  A(4,3). 
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Your  computer  also  supports  string  arrays.  Enter  and  run  this 
routine  to  see  a  string  array  in  operation: 


3.8  REM  STRING  ARRAYS 
20  DIM  R$t5) 

pnjj  e>  _  a  Tn  q 

4.©  i_ET  CBi  =CHR$  tINT  fR.ND*2B 
J  +SS  J 

5©  NEXT  B 
S©  FOR  B  =  1  TO  5 

T©  PRINT  "ft*  ")  IS  ”;A*(B> 

S©  NEXT  B 


Unless  you  only  want  to  store  a  single  letter  in  each  element  of 
the  array,  you  must  dimension  a  two-dimensional  array  for 
strings.  The  first  number  is  the  number  of  words  you  want  to 
store  in  that  array,  and  the  second  number  is  the  number  of 
letters  in  the  longest  word  you  wish  to  store  in  that  array .  In  our 
sample  program,  A$(5 ,5)  is  dimensioned  in  line  20.  This  means 
that  the  array  will  store  five  words,  each  of  which  can  be  up  to 
five  letters  long. 


I©  REM  STRING  ARRAYS 
20  DIM  (5^  S.l 
3©  FOR  B=1  TO  5 
4.0  READ  RjJ?  t'BJ 
50  NEXT  B 
60  FOR  B=1  TO  5 
70  PRINT  "A 
80  NEXT  B 

90  DATA  "FIRE” . "BAG" 
PEAT  ”  ,  “ .XENON ” 


IS  " ; A* (B3 
,  "CANDY"  " 


A$tI1  IS  FIRE 
A  $<23  IS  BAG 
A$t33  IS  CANDY 
Ait  4. 3  IS  PEAT 
«StS3  IS  XENON 


ESCAPING  FROM  MURKY  MARSH 

This  program  d^nionstrates  the  use  of  a  two-dimensional  array 
for  ‘^holding”  ah  object  and  for  printing  it  out.  The  object  in 
this  case  is  a  miniature  dragon,  who  is  trying  to  escape  from 
Murky  Mal^ihifficated  in  this  program  by  a  square  of  brightly 
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coloured  dots.  Our  dragon  is  very  stupid,  and  moves  totally  at 
random  within  the  marsh.  He  is  free  if  he  manages  to  stumble 
onto  the  outer  right  or  bottom  two  rows. 

The  dragon  in  this  program  demonstrates  Brownian  motion, 
the  random  movement  shown  by  such  things  as  tiny  particles  in 
a  drop  of  water  viewed  under  a  microscope,  or  of  a  single  atom 
in  a  closed  container.  Brownian  motion  explains  why  a  drop  of 
ink  gradually  mixes  in  with  the  water  into  which  it  has  been 
placed. 


Whew. ..free  el  l as t 


Here  is  the  program  listing: 

10  REM  Dragon's  Lair 
2©  DIM  Ri  10/  10)  :  LET  M=© 

3©  GO  SUB  50© 

4-0  LET  X  =INT  fRNDs-25 
5©  IF  X=B  THEN  LET  P=P+1 
6©  IF  X  =1  THEN  LET  P=P-I 
7©  LET  X=XNT  (RN&f2) 

S©  IF  X=©  THEN  LET  ©=©  +  l 
9©  IF  X  =  1  THEN  LET  0=0^1 
100  IF  ©<1  THEN  LET 
110  IF  P<1  THEN  LET  F'=P-*1 
12©  LET  M=M+X 

13©  PRINT  RT  3,3;  INVERSE  1;  **  R 
t  leapt  »  " ; M ; **  ” 

4.1©  LET  R  tP  ,  O)  =98 
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4-15  PRINT  HT  5,5; 

4-2©  FOR  X=1  TO  1© 

4-3©  FOR  Y=1  TO  1© 

4-*©  PRINT  FLfiSH  If  (fl  CX#Y)  =9B>  ; 
INK  P,'2;  CHR$  Cfi  CX,Y1  +4-51  ; 

450  NEXT  Y 

4.55  PRINT  :  PRINT  TfiB  5; 

4-7©  BEEP  ©  *  006 1 X  #Y  /S. :  NEXT  X 
4S0  LETT  R  CP  ,  GO  =0 

49©  IF  €3  >5  OR  P>B  THEN  GO  TO  6© 

0 

495  GO  TO  4© 

50©  LET  ©=1NT  CRNDS3J+4-.  LET  P  = 
INT  CRND*3J +4 
51©  RANDOMIZE 
52©  FOR  B=©  TO  6 
53©  REPP  fit 

540  POKE  U5R  **fi“+B,C 
55©  NEXT  B 

550  BRIGHT  1:  PAPER  7;  INK  ©.*  C 
LS 

57©  BORDER  2 
5S©  RET URN 

59©  DRTR  35,78,76, 95 , 255 , 223 , 18 
.  51 

500  PRINT  ' ' ' '  BRIGHT  1;  FLBSH 
i;  INK  0;  PAPER  4;  TfiB  5;  "Whre# .  .  « 
free  at  last”. 


DAVY  JONES’  LOCKER 

You  can  relax  now  with  our  next  game  —  FULL  FATHOM 
FIFTY  —  which  uses  two  arrays  (B  and  D)  to  store  the  player’s 
scores  and  dice  rolls  respectively.  It  is  a  simple  game.  You  and 
the  computer  are  in  a  race  to  roll  a  total  of  50  or  more.  You  roll 
two  dice  at  once,  but  the  only  time  you  score  and  get  the  total  of 
the  dice  roll  added  to  your  accumulating  total,  is  when  both 
dice  come  up  with  the  same  number 


You  should  know  enough  about  how  programs  work  at  this 
stage  to  be  able  to  determine  what  each  section  does,  so  we  will 
not  explain  this  relatively  simple  program.  Get  it  up  and 
running,  and  then  decide  for  yourself  how  each  section  works. 
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You’ll  possibly  gain  more  from  the  program  by  working  it  out 
yourself  rather  than  having  it  explained  in  detail  by  us. 


Here  is  the  program  listing  for  Full  Fathom  Fifty: 

10  REM  FLIL.L  FRTHOM  FIFTY 

15  PfiPER  7:  C-L.S  :  INK  0.-  BQRDE 
R  7:  PPNDOMIZE 

20  DIM  &  £25  ;  DIM  D  £25  :  DIM  R<$  C 
335  :  L.JET  ROUND  =1 

3©  FOR  R=1  TO  3 

4.0  PRINT  RT  5,4-;  BRIGHT  1;  PRP 
ER  RND S-7 ;  INK  9;**  Full  Fathom  Fi 
fty  ";fiT  is,s;  "  Round  number  ";R 
OUNO ;  "  •* 

50  PRINT  AT  S ,  7;  PAPER  RNI>#7; 
INK  S;  "TsS  2000;  ";B£15;RT  11,  B; 

•■Human:  ";B£35 

60  IF  B  £15  >4.0  OR  B  C25  >4-9  THEN 
GO  TO  230 

70  IF  R=1  THEN  PRINT  RT  14,3; 
Fi.RSH  a;  “I'll  now  roll  the  dice" 

60  IF  R  = 2  THEN  PRINT  RT  14,3; 
FLASH  i; "Press  'R'  to  roll  the  d 
ice";  IF  XNKEY$<>”R"  RND  INKEY  $  * 
>  ** r  ”  THEN  BEEP  . B08,RND*6:  GO  TO 
5© 

90  FOR  J  =  1  TO  20  STEP  .4-;  BEEP 
. ©07, U.  NEXT  U 
100  PRINT  RT  14,0; R$ 

110  FOR  C=1  TO  2 

120  PRINT  RT  14,5;  FE.RSH  1;  INK 
2;  "Rollins  die  tt  ";c 
130  FOR  H=30  TO  1  STEP  -.5*  BEE 
P  ,007,H:  NEXT  H 
140  LET  D  £05  =INT  £RND*65  +1 
15©  PRINT  RT  14,5;  INK  1;**  It 
came  up  **;  FL.RSH  1;  INK  2;  BRIGH 
T  1;  D  t  C5  ;  FLRSH  0;  BRIGHT  0;  ** 

160  FOR  G=41  TO  4?  STEP  -1:  BEE 
P  .006,6;  NEXT  G;  PRINT  RT  14,0; 

17©  NE5CT  C 

180  IF  D  £ 15  < >D (25  THEN  PRINT  RT 
14,2; "Those  rolls  do  not  count" 
19©  IF  D  £  1 5  =D  £  25  THEN  L.ET  B£R5  = 
B  (R5  +3*D  £15  ;  PRINT  RT  14,3;  FL.RS 
H  l;  BRIGHT  1; "The  roll  was  ^ 

HVERSE  1; D  £15  ;  INUERSE  0;"  and 
;  INUERSE  1; D  £25 


"  -fc* 
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200  FDR  G=I  TO  12  STEP  „2;  BEEP 
.  @08  ,  G;  NEXT  G:  PRINT  RT  14-, &}  R 

$ 

21©  NEXT  R 

22©  LET  ROUND  =R0UND +1 :  FOR  G=I 
TO  5©;  BORDER  RND*S;  NEXT  G:  BOR 
DER  ~7:  SO  TO  30 

S3©  PRINT  RT  IS,  0;  F^L-RSH  I;  "find 

the  winner  is  the  **; 

S4.0  IF  Bill  <BCS1  THEN  PRINT  INU 
ERSE  1;  Fi-RSH  I;  **  hu&aft  ** 

SS0  IF  Bfll  >B  I2J  THEN  PRINT  INU 
ERSE  .1;  Fi-RSH  I;  **  T/S  S©0©  ** 


r*ir  a  pTrn  rnilPTFFM 

jl  JCiJx  J?  v/ AJ xv a  r j r j i v 

LET  THE  GOOD 

m  a  Dinrc  dat  t 

uKAr  nlUij  HULL 


Your  computer  has  a  very  wide  range  of  graphics  abilities,  and 
in  this  chapter,  we’ll  introduce  you  to  those  abilities.  After  the 
introduction  to  each  function,  we’ll  give  a  program  or  two  to 
demonstrate  it  in  use. 


These  demonstrations  should  be  seen  only  as  introductions  to 
the  graphics  potential  of  your  computer.  Experimentation  will 
demonstrate  just  how  far  you  can  stretch  your  computer. 


PLOT 

PLOT  is  rather  like  PRINT  AT  in  that  the  command  is 
followed  by  two  numbers  which  determine  where  on  the  screen 
a  dot  will  be  plotted.  The  difference  between  the  two 
commands  comes  from  the  fact  that  the  counting  for  PLOT  co¬ 
ordinates  starts  with  0,0  in  the  bottom  left  hand  corner  of  the 
screen,  while  the  PRINT  AT  co-ordinates  start  with  0,0  in  the 
top  left  hand  corner.  As  well,  PRINT  AT  only  has  a 
of  32  across  by  22  down,  whereas  PLOT  has  a 
across  and  176  down. 


Run  the  next  program  entering  numbers  between  zerOl@nd  255 
for  X,  and  zero  and  175  for  Y,  to  see  PLOT  in  action: 
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1©  REM  PLOT 

2©  INPUT  “ENTER  X  ”;X 

3©  INPUT  “ENTER  Y  ";Y 

4-©  PRINT  RT  0,0;  "PLOT  RT  Xj 
»»  I  V 

*'  5©  PLOT  X,Y 

5©  GO  TO  2© 


You  can  get  the  computer  to  generate  PLOT  co-ordinates  at 
random,  and  then  ‘reflect’  them  into  each  of  the  four  corners  of 
the  screen,  as  our  next  program  convincingly  demonstrates: 


I©  REM  BUTTERFLY  PLOT 
2©  LET  X=RND*127 
3©  LET  Y=RND*S7 
4-0  PLOT  X(Y 
3©  PLOT  255 -X,Y 
50  PLOT  X, 175 -Y 
7©  PLOT  255 — X  /  Z75--Y 
30  GO  TO  2© 


Add  colour,  and  see  how  extraordinary  the  result  can  be: 

I©  REM  BUTTERFLY  PLOT  MK.  II 
12  REM  LERUE  IT  RUNNING* 

15  PRPER  ©:  BORDER  0:  CL 5 

20  LET  X  =RNDs-127 

30  LET  Y=RND*e7 

3S  INK  RND*7 

40  PLOT  X,Y 

50  PLOT  255-XjY 

©0  PLOT  X 1 175  — Y 

7©  PLOT  255 -X , 175 -Y 

30  GO  TO  2© 


PLOT  makes  it  very  easy  to  transform  an  equation  into  a  graph 
of  that  equation,  as  the  following  programs  (all  of  which 
you  should  run)  illustrate  dramatically: 
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3.0 

15 


3© 

4.© 


REH  SIN  PL. OTTO  _ 

PAPER  0:  BORDER  B:  INK  V : 

FOR  R=0  TO  2JPI  STEP  .01 
PLOT  4eifi,i£0iSIN  JR 
NEXT  R 


c 


1©  REM  COS  PL.  OTTO 

15  PAPER  ©:  BORDER  0:  INK  7;  C 

U;?2e  FOR  R=0  TO  2 3-PI  STEP  .01 
3©  PLOT  4.0iR  t  120*CGS  R 
4©  NEXT  R 


NOTE  NEW  SCALE 

1©  REM  SIN/COS  PL OTTO 
,  ,«-5  PBPER  0:  BORDER  B:  INK  7:  C- 


2©  FOR  R  =0  TO  2SPI  STEP 
30  PLOT  4-0*A,160S-CO5  R 

f!tOT  1S0*SXN  R 

50  NEXT  fl 


003 
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10  REM  STflRFLIGHT 

15  PfiPER  0:  BORDER  0:  INK  T:  C 

IT"  FOR  B  =  10  TO  11©  STEP  £0 
20  FOR  R =0  TO  PI  STEP  -006 
30  PLOT  4-0ffi+B,160iCOS  R 
4-B  PLOT  4-0S-R+B.,  1S©*SIM  R 
5©  NEXT  H 
60  NEXT  B 
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1©  REM  OURL  XU 

12  PAPER  0:  ©ORDER  0:  INK  7:  C 

IS  FOR  R=i  TO  105  STEP  .3 
2©  i_ET  B=PI*fl/50 
30  LET  C=95SC-OS  BF12S 
4.0  LET  D=79S5IN  B+S3 
5©  PLOT  INK  6; 0,0 
55  PLOT  INK  5; C/2 , D 
50  PLOT  0,0 s2 
55  PLOT  INK  5; Cy 2,0/2 
T©  NE>rT  R 


DRAW 

DRAW,  like  PLOT  and  PRINT  AT,  is  (generally)  followed  by 
two  co-ordinates.  However,  unlike  PLOT  and  PRINT  AT 
which  have  absolute  co-ordinates  (0,0  is  always  the  bottciffleft 
hand  corner  of  the  screen  with  PLOT),  DRAW  co-ordinates’ 
are  relative,  and  depend  on  the  previous  positioitT*l^pted;  gp 
at  which  the  last  DRAW  ended. 


In  our  first  DRAW  program  the  computer  plots,  an  Xj¥ 
position  (chosen  at  random  by  the  subroutine  front  line  70), 
then  DRAWs  three  lines  from  this,  PLOTting  X,Y  after  each 
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line  is  drawn  to  ‘restart’  the  new  line  from  the  same  position  as 
the  other  lines  have  used  for  a  beginning  point. 


3  REM  Era# 

I©  GO  SU©  70 
2©  PLOT  X,Y 
30  DRRU  X 1 175 -Y 
35  PAUSE  10:  PLOT  X,Y 
4-0  PRAU  2S5-X,Y 
4-5  PAUSE  10:  PLOT  X,Y 
5©  DRAW  255 -X,  IT’S -Y 
S©  GO  TO  1© 

7©  LET  X  =RNDf 127 
5©  LET  Y=RND *87 
2©  PPU55  2© 

100  RETURN 

Our  second  DRAW  program  adds  a  little  colour: 

«  REM  ©raw  XX 
1©  GO  SUB  70 

2©  plot  x;y 

30  DRAW  X f 175 —Y 
35  PAUSE  10:  PLOT  X,Y 
4-©  JDRRU  255  —X  ,Y 
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4-5  PAUSE  IS;  PLOT  X,Y 
5©  Df?RU  25S-X,  175— Y 
S©  GO  TO  10 
7©  LET  X=RND*127 
S©  JL ET  Y=RND*S7 
S0  PAUSE  20 
100  INK  RNDJ7 
11©  RETURN 

This  can  be  further  developed  to  produce  the  dynamic  program 
WARP  SPEED: 


1©  REM  WARP  SPEED 

15  INK  ©:  PAPER  0;  BORDER  0:  €? 

L  5 

30  LET  X=RND*127 
3©  LET  Y=RND*©7 
4-0  PLOT  137,  B7 
50  DRAW  X  ,  Y 
S©  PLOT  127, ©7 
70  DRAW  -X,Y 
©0  PLOT  127, ©7 
20  DRAU  X,  -Y 
100  PLOT  127, ©7 
11©  DRAW  — X , — V 
120  OUER  I NT  (RND+.5) 

13©  GO  TO  20 
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For  a  stunning  variation  on  this,  add  line  35  as  follows: 

35  INK  RNDi7 


We  said  earlier  that  DRAW  was  generally  followed  by  two 
numbers.  However,  you  can  add  a  third,  which  turns  the  line 
through  an  angle  specified  by  the  final  number.  In  effect,  this 
allows  you  to  draw  curved  lines,  as  WHIRLPOOL  shows 
clearly: 


3L©  REM  WHIRLPOOL 
15  INK  5:  PAPER  0 


1 


30 

30 

4-0 


50 

"7© 

a© 


22© 


-J5  i FT* 


LET  X 

I  P'f  y 

PLOT 

PRflU 

PLOT 

DRRU 

PLOT 

DRRU 

■l  PLOT 
DRA  y 
GOER 
■'"Off*  TO 


=RNI>  *87 
=RNI>*-4-7 
127,87 
X  ,  Y ,PI 
127 , 87 
-X  ,  Y  ,  PI 
127 , 87 
X  ,  -Y  ,  PI 
127 , 87 
-X , - Y  ,  P I 
XNT  i  RM0  +. 

^0 


BORDER  0; 


on  one  written  by  Jeremy  Ruston, 
bl&K6%ahd  DRAW  to  remarkably  good  effect: 
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1©  REM  urban  Pacifier 

2©  REM  Based  on  'String  fir t 

3©  rem  fou  Ueretty  Rust on 

4-0  BORDER  0:  PftPER  0:  CL.S  :  IN 

58  LET  X-XNT  CRND*2SS> 

©0  LET  U=INT  (RNDil76) 

■70  LET  l=INT  (RND*25S3 
80  LET  St  =  INT  CRND*±7S3 
G©  LET  U  =15:  LET  V =7 
100  DEP  FN  r  Os  3  =INT  CRND*X3 
110  GO  SUB  270 
126  LET  n  U  TU  =nu  Br  - 1 
3-30  IF  nun  =0  THEN  GO  SUB  270 

14-©  PLOT  x,y 

150  DRRU  l—  X  .St— U 

IS©  BEEP  .008, tl+ci 77;  BEEP  .00 
3  .  tffi  +d  3  74- 

17©  IF  X+a  >255  OR  X+a<0  THEN  LE 
T  3  =-3 

IB©  IF  y  17S  OR  y+b<0  THEN  LE 
T  b  =  — b 

198  IF  Uc>255  OR  L+CfB  THEN  LE 
—  c  =  — c 

_20O  IF  n  +d  > 175  OR  »+d*©  THEN  LE 

210  BEEP  .008, (t+C)/7:  BEEP  .0© 

S  .  Cffi  +d  3  74- 

220  LET  x=X+a:  LET  y=y+b 
230  LET  l  =  L  +  C  ;  LET  »=»+d 
24-0  LET  con  t  *FN  r  £288) 

250  IF  COO  1 =1  THEN  RUN 
260  GO  TO  120 
27©  LET  a  =FN  r  f U  3  -V 
2S0  LET  b=FN  r (Hi -V 
20©  LET  C  =FN  r  (U 1  -V 
30©  LET  d=FN  r  tU>  -V 
310  LET  nu»=FN  r C203 +1© 

320  INK  (RND*7) +1 
330  LET  V =RND»6+7 
34-0  RETURN 

non  it 

The  CIRCLE  command  draws,  as  you  migjit .  expecfc  a 
complete  circle.  The  command  is  followed  by  numbers, 
the  X  co-ordinate,  the  Y  co-ordinate,  and  finally  TadiWs©f 
the  circle.  The  next  two  programs  produpe  attractive  displays, 
while  making  the  result  of  employing  CIRCLE  Ifey  clears. 
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10  REM  CIRCLING  AROUND 
20  LET  X  =10©  +E-7  jffiND 
3©  LET  Y=28+RN0JI0? 

4-0  CIRCLE  X  ,Y  ,  RND  f2@ 

E©  IF  RND  > . 9?  THEN  CLS 
50  INK  RND  *  B 
T©  GO  TO  20 


1©  REM  CIRCLING  AROUND 
IS  OUER  1 

2©  LET  X=106+S7tRND 
3©  LET  V  s20+RNDii07 
4-0  CIRCLE  X,Y,RNDi20 
S©  INK  RND  S-G 
7©  GO  TO  2© 


MULTI-COLOURS 

You  are  generally  restricted  to  eight  colours  on  your  computer 
(counting  black  and  white  as  colours).  However,  the  following 
program,  which  creates  a  checkerboard  user-grapic,  then  mixes 
INK  and  PAPER  colours,  and  alternatively  turns  BRIGHT  off 
and  on,  demonstrate^  just  how  many  colours  can  be  created. 
The  program  prints  On  the  screen,  below  a  broad  band  of  the 
colour,  the  combination  which  produced  that  particular  hue, 
so  you  can  note  any  very  interesting  ones  to  recreate  them  in 
your  own  programs.  This  routine  produces  8  by  8  by  2  different 
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colours.  Add  160  RUN  if  you  want  the  program  to  be  a 
continuous  demonstration: 


3  REM  RING  THE  CHANGES 
5  PAPER  7 :  ©ORDER  7 :  CLS 
21©  POKE  USR  “B” ,BIN  02.010101 
3©  POKE  USR  "R"  +2.,BIN  2010202© 

30  POKE  USR  "B" +2,BIN  ©1010202 

4-0  POKE  USR  "R”  -f-3 ,  BIN  202©2©2© 

5©  POKE  USR  **R "  -#-4-  *  BIN  ©2010102 

60  POKE  USR  “R" +5/BIN  10101010 

70  POKE  USR  “S-’f&.BIN  02020201 

75  LET  =  :  REM  GRRPH IC  R 

77  FOR  T=1  TO  9:  LET  R$=R$*B$: 

NEXT  T 


3©  FOR  R=©  TO  7 
9©  FOR  B=®  TO  7 
10©  FOR  C=0  TO  2 
220  BRIGHT  C:  INK  R:  PRPER  B 
220  PRINT  RT  0,0;R$;RT  2 S,5;  IN 
K  9* “INK  Ri  "  PRPER  **;B;“  BRIGH 

-y  kt  ; 

ISB^PRUSE  20:  BEEP  .@06,R*B+C 
23©  NEXT  C 
210  NEXT  B 
250  NEXT  R 


STARTLING  RESULTS 

Finally,  to  convince  yourself  and  your  friends  of  your 
computer’s  remarkable  graphic  abilities,  run  the  following 
flashy  demonstrations: 


SHAPE-MASTER 

The  first  one  is  SHAPE-MASTER  written  by  Tim  Rogers. 
Enter  two  numbers  (the  first  one  should  be  between  one  and 
100;  the  second  between  0.2  and  1 .9)  and  sit  back  and  let  your 
computer  go  to  work  producing  superb  designs  like  those  whiph 
proceed  the  listing: 
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A  REM  g3wpe  ~fi»a  step 
5  PLOT  128, 16© 

X&  LET  x=12S 
15  LET  h 

l?  iNPirr  “Shape  nusber? 

13  INPUT  ”5Up?",e 
2©  LET  y  - -3S 
25  LET  s=S© 

SO  LET  a  =3 

55  D-RhU  x  F-5XN  a  ?s  -PJtEK  ^3f»77 ,  y 
*005  a as -PEEK  23575 
4-©  LET  S  =:S  -e 
5©  LET  a  —a  *K 
55  IF  S;8  THEN  OO  TO  35 


AUTO  SHAPE-MASTER 

If  it’s  too  much  trouble  entering  those  two  numbers,  then  let 
the  random  number  generator  do  the  work,  with  this  variation 
of  SHAPE-MASTER  called  AUTO  SHAPE-MASTER: 
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i  REM  fluto  Shape -was  ter 
5  PLOT  12 S ,1SS 
10  LET  X -123 
15  LET  h  =0 
17  LET  k=RND*10© 

19  LET  e  — hND#2— flNP 
£0  LET  y-S8 
£5  LET  s =S8 
30  LET  3=@  „ 

55  I >RRW  X  f5IN  a  3-3  -PEEK  25&T7^  y 
4-COS  a  -PEEK  SOFTS 
4-0  LET  s  =5  — £ 
lE  i  a 

55  XF  s>0  THEN  GO  TO  55 
50  PROSE  100 
70  RUN 


DO  NOT  ADJUST  YOUR  SET 


This  program  by  Paul  Holmes  demands  two  user-defined 
graphics  (the  coarse  checked  pattern  in  line  150  is  a  series  of 
graphic  “B”;  the  fine  check  on  either  side  is  graphic  “A”). 
This  program,  based  on  the  multi-colour  one,  is  ideal  for 
running  when  you’ve  got  the  TV  repairman  on  the  way. 


10  REM  DO  NOT  ADJUST 
£0  REM  YOUR  SET 

3©  FOR  Z=0  TO  7 
4-0  POKE  USR  "r+Z,! 

5©  NEXT  Z 

6©  FOR  Z=0  TO  4-  STEP  4 


S5 

66 

7© 

71 

8© 


POKE 

USR 

“B"+Z .BIN  1 

1©011 

POKE 

USR 

“B4*  fZfl 

,  BIN 

110011 

POKE 

USR 

“B" +Z +2 

,  BIN 

110-011 

POKE 

USR 

"B" +Z+3 

f  BIN 

A  Hn  *.-fe  J-U  ■  JT 

■Jn,  ^  Jl, 

NEXT 

z 

S©  FOR  Z=©  TO  6  STEP  £ 

10©  POKE  USR  "R“tZ..EIN  01010101 
;  POKE  USR  *‘R“ +  1+Z , BIN  1010101© 
11©  NEXT  Z 

1£©  INK  7:  BORDER  0:  PfiPER  &:  C 
LS  '■ 

13©  FOR  Z  =  i  TO  7 
140  FOR  U=1  TO  3 


15©  PRINT  TRS 


S;  BRIGHT  0; 
7;  BRIGHT  XNT 
INK  Z;  BRIGHT 


INK 


ills 
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IBS  NEXT  O:  NEXT  Z 
±7©  INK  7 

20®  FOR  Z=®  TO  62  STEP  2 
210  PL.OT  Z,  .  -S 

212  IF  Z  <33  THEN  DRRW  BRIGHT  l; 

0  » 167 

215  IF  Z  >  33  THEN  DRhU  BRIGHT  0; 
© ,  167 

22®  NEXT  Z 

23®  FOR  Z  =222  TO  254-  STEP  2 
24-0  FL.QT  2,8:  DRRW  BRIGHT  1J©,1 
67 

2=;@  NEXT  Z 

26©  FOR  Z=S  TO  174-  STEP  2 
270  RL.OT  192  ,  Z :  DR3«  BRIGHT  I;  6 
3,0 

23©  NEXT  Z 

29©  PRINT  RT  SI/6;  "Eft  No r  Nor 
g  26  G  Bft  Lift  C-r£S" 

ATLAS  SHRUGGED 

Atlas  shrugged  in  this  second  program  by  Paul  Holmes  and 
sent  the  world  a-tumbling,  as  you’ll  see: 

5  REM  RTLftS  SHRUGGED 
1©  INK  ©:  OUER  0:  PAPER  0:  BOR 
DER  0:  CLS 

2©  FOR  Z=-PI  TO  PI  STEP  0.1 
3©  PL.OT  12S/0:  DRRU  0,  175,  Z  . 

4-0  NEXT  Z 

5©  PAUSE  2© 3:  OUER  0 
57  FOR  U-0  TO  1 
60  FOR  Z=©  TO  255  STEP  3 
7©  PLOT  © , © :  DRRW  Z , 175 
8®  NEXT  Z 

9©  FOR  Z  =  175  TO  ©  STEP  -3 
10©  PLOT  0,0:  DRRW  255, Z 
2L3L0  NEXT  Z 

12®  IF  W=©  THEN  PROSE  200:  BORD 
ER  7:  PAPER  7:  INK  1:  CLS 
13©  NEXT  O 
14-0  PROSE  20® 

270  BORDER  0:  PAPER  0:  INK  4:  C 
L5 

280  FOR  Z  =  -87  TO  38 
290  PLOT  127,37:  DRRW  -127, Z 
30©  PEDT  127,87:  DRRW  123, Z 
310  NEXT  Z 

32©  FOR  Z=-127  TO  128 

33®  PLOT  127,87:  DRRW  Z, -87 
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34-0  PLOT  127,67:  DRRU  Z,  S© 

350  NEXT  Z 

360  PAUSE  200 

370  PAPER  6:  BORDER  6r  CLS 
360  FOR  Z=6  TO  172.  STEP  7 
3S5  INK  Z.^37 

30©  PILOT  ©^Z:  DRAW  Z,-Z,-PI/2 
4-00  PLOT  255 ,  Z  :  E>RRW  -Z,-Z,PI  /2 

4-1©  PLOT  Z ,  175 :  DRRU  -l,'Zf-PI/ 

S 

4-2©  PLOT  255.,  175 -Z:  DRAW  -Z  ,Z,- 
PI/2 

4-3©  NEXT  Z 

4-±0  INK  1:  OVER  1;  GO  TO  2© 
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CRESCENT 

The  name  just  about  gives  it  away.  It  is  the  work  of  a  few 
seconds  to  key  the  program  in.  Once  you’ve  got  it  underway,  let 
it  run  for  a  while,  and  see  what  OVER  1  (line  20)  can  do. 

1  REM  CRESCENT 
S  RANDOMIZE 

20  PAPER  m:  BORDER  S:  CLS 
2©  LET  R=-PT:  OUER  2 
25  INK  RNDiS+1 

3©  FOR  B=ft  TO  fl+RNDs3  STEP  RND 
2© 

4-0  PLOT  1£S,0:  DRfiU  @,175,8 
50  NEXT  B 
7©  SQ  TO  25 


tj  a  xjnrxr’io  w,^ i 1  i.^  ^ twt 

tilAr  1  XL Iv  Jr  IJr  lHiJbiM 

MORE  GREAT  GAMES 


In  this  final  chapter ,  we’U  be  giving  you  the  listings  of  a  number 
of  major  programs.  The  notes  on  these  will  not  be  as  extensive 
as  you’ve  had  with  some  programs,  but  the  introductions  to  the 
programs  will  highlight  some  of  the  more  interesting 
programming  techniques  used.  Examination  of  the  listings  will 
give  you  a  number  of  ideas  you  can  apply  to  your  own 
programs. 

BAGATELLE 

This  is  a  simplified  pinball  machine,  in  which  you  and  the 
computer  take  it  in  turns  to  roll  diamond-shaped  balls  down  a 
frame  which  contains  a  series  of  numbers  and  letters.  Your 
score  tends  to  increase  each  time  you  hit  an  obstacle  on  the  way 
down  the  frame,  and  the  ball  will  bounce  off  the  obstacle, 
increasing  your  chances  of  hitting  more  obstacles.  Hitting  the 
sides  of  the  frame,  or  bouncing  around  on  the  bottom,  can  cost 
you  small  penalties.  In  general,  though,  each  time  the  ball  hits 
something  you’ll  hear  it  do  so,  and  have  the  satisfaction  of 
seeing  your  score  increase. 


If  you  look  at  the  sample  printouts  which  follow  this 
introduction,  you’ll  see  the  numbers  1  to  9  in  inverse. 


You  start  your  ball  rolling  down  the  frame  from  any  one  of 
those.  You  and  the  computer  have  five  balls  each  to  roll  down 
the  bagatelle  frame*  and  you  take  it  in  turns  to  do  so.  You  have 


CHAPTER  FIFTEEN  145 

the  first  roll.  Then  the  computer  will  tell  you  which  ball  it 
intends  to  roll  down  the  frame,  and  then  roll  this  ball. 

The  most  noteworthy  part  of  this  program  is  the  SCREENS 
command,  which  is  used  in  lines  170, 180and200.  The  numbers 
following  the  word  SCREENS  are  like  the  numbers  which 
follow  the  PRINT  AT  command.  However,instead  of  printing 
something  at  that  location  on  the  screen,  SCREENS  checks  to 
see  what  is  there.  In  each  case  in  this  program,  it  is  checking 
around  the  current  position  of  the  ball,  to  see  if  it  is  about  to 
strike  something.  If  it  finds  anything  except  a  space,  the  score  is 
incremented  by  the  CODE  of  the  character,  minus  48.  You’ll 
see  why,  if  you  look  up  the  code  of  the  “/”  which  is  used  for  the 
walls,  and  the  CODE  of  “1”.  Good  rolling. 

Here’s  the  program  in  action: 


X  milt  start  with  dB 
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HUffiarc 

Machine  2  27? 


Ba  ii  tt  3  He 


And  this  is  the  listing: 


10  REM  BRGfiTELLE 
20  GO  SUB  1000 
3©  GO  SUB  50© 

4-0  FOR  Y=1  TO  5:  PRINT  RT  1 4,2 

s ;  flrsh  i ;  y 

5©  FOR  X=1  TO  2 

55  IF  X=2  THEM  PRINT  RT  14,26; 
FLfiSH  i y Y r  FLASH  0;  **  H€  “ 

56  IF  X=1  THEN  PRINT  RT  2 4,26, 
FLUSH  2; Y;  FLRSH  0;”  You" 

6©  IF  X=1  THEN  INPUT  "UhiCh  8 
to  Start  With?  ";K:  IF  K<1  or  k> 

R  THEN  GO  TO  S© 

"  ?*©  IF  X=2  THEN  LET  K=INT  f  RND  * 

9>+i:  PRINT  FLRSH  1;  INK  2;  PRPE 
R  6;RT  21,0;  "I  wilt  start  with  *' 
,  XHUERSE  1;  "  "2  FOR  E=1  T 

O  1©02  BEEP  .e07,S0-E/2:  NEXT  E: 
-PR  INF  -RT  21,©;  " 

S0  PRINT  FLRSH  1;  INK  0; ; RT  ©, 
3+K;K:.  FOR  E=1  TO  5B:  BEEP  -©07, 
E:  NEXT  E r  PRINT  INUERSE  1;  INK 
i;  RT  0 , 3*K  ;  K 
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S5  REM  PRINT  RT  0,©;"  " ;  INUER 

SE  1  ;  TRB  4;  **32345 S7S9  " 

3©  LET  BR=K+3:  LET  j EBR=BR 
100  LET  BD=i :  LET  EBD=i 
IIS  LET  IR=3 
3.2©  LET  XI>  =  1 

3.3©  PRINT  AT  EBD ,  EBR^  **  **  r  LET  E 

BR  =BR 

^14.0  LET  EBC'sBD 

IS©  PRINT  RT  BD,BA;  FLASH  3;  BR 
IGHT  3. ;  '*  «= "  .*  REH  GRAPHIC-  R 
IS©  LET  FLRG=0:  LET  fi$=SCREEN$ 
(3D 4-3  *  BRJ 

IT©  IP  R$  <  >  **  “  THEN  LET  C  fX3  =C  C 

X) +CODE  R$-4S:  LET  FLAG =3 :  GO  TO 

IS©  LET  fl$=SCREEM$  (BD,BR*1) 

IS©  IF  R$<>"  "  THEN  LET  C (X) =C  £ 

XJ  +C-OOE  R$-4S:  LET  FLRG=1 GO  TO 
220 

20©  LET  fi$=SCREEN$  CBO,BR-3J 
23©  IF  2$  <  >  **  **  THEN  LET  C  fX3  =C  C 

XJ  4- CODE  ft$-4S:  LET  FLAG=1;  GO  TO 
22© 

22©  IF  FLRG=1  THEN  BEEP  .0©S,5© 
;  IF  RND  <  » 3  THEN  LET  IRt-  XR :  LET 
XD  =  -!&.-  BEEP  „ ©07 , 20+2+IR+3+IO 
225  PRINT  RT  4, SS; C  f  3  > ; RT  S#2S; 
C  f2> 

23©  LET  BB=BD+  CI£>*RN03  +©*75 
235  IF  BR  <3  THEN  LET  IR  =  ~XR;  LE 

23S  IF  B£>  i  3  THEN  LET-  II>»-IP;  LE 
s  30  =3 

237  IF  BR  >  35  THEN  LET  XR  =  -IR:  L 
c j  BR=33 


24©  LET  BR=BR+ 1IR+RNDJ 

250  IF  BO <39  THEN  GO  TO  33© 

25©  FOR  G=-20  TO  20  .-  BEEP  « ©5 ,  G 
:  NEXT  G 


27©  GO  SUB  50© 

2S0  NEXT  X 
sag  N^VT  V 

30©  PRINT  RT  34 , 3S;  **TKei  »4  P«3^ 
is**;  RT  3S  t  39; 

33©  IF  C  C 3.'  <C  C2J  THEN  PRINT'#* 

s  machine” 

320  IF  Cf2J<Ct3i  THEN  PRINT  “ 

e  Hujoan** 


th 


49©  STOP 
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SBB  PRINT  RT  0,1;  INVERSE  1;  TRE 
4-;  "1234-55789  **  ;  PRINT  RT  4-, 2 

5. ;  "Hu»an  ,*  **;CCIJ;RT  6,is;  "Machin 
e:  C  i'2)  ;  AT  14,19;  "BaU  »" 

SI©  FOR  0=1  TO  19 

320  PRINT  INVERSE  I;  INK  RND*3+ 
I;  PAPER  5;RT  ©, I;  “y"; RT  0,13;**/ 

530  HEXT  D 

535  PRINT  INUERSE  1 ;  JTT  *©  ,  A  ;  tB  S  y 

y  y  y  y  y  /  ✓  y  y ////“ 

54-©  PRINT  INUERSE  !L;  RT  "// 

x  y  y  y  y  y  /  yyyyyyy** 

550  PRINT  PJT  a,5;"l  3.  1  *  * ;  ST  4- 

'*  55©  PRINT  INK  RND*5;flT  6,4-;’* I  I 
I  11  1  ** 

370  PRINT  INK  RND»5; RT  9,3; ”7 

*T  *7” 

*  53©'  PRINT  INK  RND*S;  RT  11,3;  **S 

1^** 

590  PRINT  INK  RND*5;flT  14-,6;  "9 
9  9**;RT  16,4;  “8  S  S** 

600  RETURN 
990  STOP 

1000  FOR  R=0  TO  6 

1010  RERf>  B 

1020  POKE  USR  **R**+R,B 

i  a^aa  MPYT  R 

104.0  DRTR  0,24-, 36, 90, 90, 36, 24 
1050  0IM  C  f  2> 

1060  BORDER  1:  PRPER  7:  BRX9HT  1 
:  INK  4.:  CL.S 
107©  RETURN 

REPTILE 

In  this  program,  by  Paul  Toland,  you  are  in  control  of  a  snake, 
and  you  must  try  to  grow  your  snake  as  long  as  possible,  by 
directing  it  to  the  pound  signs  which  it  eats.  However,  the  £’s 
remain  on  the  screen  for  only  a  short  time,  after  which  they  turn 
into  poisonous  dollars  signs.  The  snake  will  also  die  if  it  hits  the 
surrounding  border,  or  itself.  Once  the  game  is  over,  you’ll  be 
told  how  long  you  became.  Note  that  the  A’s  in  line  1 82  and  285 
are  graphics  A’s  (that  is,  “A”  pressed  after  getting  into  the 
graphics  mode.) 


Instead  of  using  SCREENS,  as  the  BAGATELLE  program 
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did,  to  detect  collisions,  this  program  uses  ATTR,  which  stands 
for  attribute.  Each  character  cell  (a  character  cell  is  the  square 
within  which  a  capital  letter  sits  on  the  screen)  has  an  attribute 
which  is  based  on  its  INK  and  PAPER  colours,  and  whether  the 
square  has  such  things  as  FLASH  and  BRIGHT  turned  on  or 
off.  A  program  can  be  written,  as  this  one  is,  to  detect  changes 
in  ATTR  and  from  them  determine  what  is  occupying  a 
particular  position  on  the  screen. 

S  GO  SUB  4*00 
5  GO  TO  280 
7  LET  L  *2 
9  RESTORE  4.3© 

10  LET  X$*CHRS  10+CHRS  11 
20  LET  Y $ aCHR $  10+CHR$  10 
3©  INK  S;  BORDER  0:  PRPER  6:  C 
LS 

35  FOR  Isi  TO  13 
4.0  READ  N ;  BEEP  .2jN 
50  NEXT  X 

S©  LET  MX  =XNT  CRND*32) 

70  LET  MYsINT  CRND*22> 

S©  IF  RTTR  CHY,HX)  <>54.  THEN  GO 
TO  60 

90  PRINT  INK  2J RT  ay,ax;“£“ 

10©  BEEP  •  ©2  ,  4. 

11©  FOR  i  *1  TO  4-0 
12©  LET  OX  ssCODE  X» 

130  LET  OX*OX+  C^KEYS^'S" )  -  (INK 
EY$  =  **S**) 

14.0  LET  OY=CODE  Y$ 

15©  LET  OY  =OY -F  ( INKEY  $  =  **  6 '*  )  —  t  INK 
2Y$  =  "T "  .1 

160  IF  OX=COD£  X4  RND  OY=CODE  Y 
$  THEN  LET  OX  =CX -FOX -CODE  X*  C2)  : 
LET  OY  =OY  +OY —CODE  Y$  C2) 

165  IF  OX<©  OR  OX >31  OR  OY<0  OR 
OY  >21  THEN  GO  TO  24-0 
170  IF  RTTR  COY, OX) =5©  THEN  LET 
L  =L  +  1  * 

IB©  IF  RTTR  COY, OX) *52  THEN  GO 
TO  26© 

182  PRINT  INK  4-;  RT  OY,  OX;  HR.” 

135  PRINT  RT  CODE  Y$ CL), CODE  X* 
CL)  ;  M  *' 

190  LET  XS=CHR$  OX+XS  f  TO  L) 

2©0  LET  YS=CHR$  OY+YJ6  C  TO  L) 

21©  NEXT  I 

220  IF  RTTR  (MY, MX) *50  THEN  PRI 
NT  INK  4.)RT  MY,MX;**$,, 
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23©  GO  TO  60 

24.0  PRINT  INK  6.;  PAPER  lj  RT  0,0 
;  “YOU  CRASHED  INTO  THE  SURROUND I 

NGUIRLL - “  ; 

250  GO  TO  270 

260  PRINT  PAPER  1;  INK  6;  PT  0,0 

;  "YOU  HIT  SOMETHING  YOU  SHOULD  N 
OT  HoyF^11  ■ 

270  PRINT  PAPER  Ij  INK  6;  "PETER 
"  GROWING  TO  **;  L 
27S  SEEP  3,-10 
2S0  PPPER  1.*  INK-  6 


235  PRINT  ' "AAAAAAASNRKESAAAAAS 
NAKESRAARAAAA " 

290  PRINT  ' "YOU  RRE  DXRECTNG  P 
MONEY  SNAKE  RROUND  THE  SCREEN  U 
SING  THE  KEYS  S,S,7&3.  YOUR  PI 
M  IS  TO  MAKE  THE  SNAKE  GROW  BY  G 
UIDING  IT  TO  THE  £  SIGNS, ON  UHIC 
H  IT  FEEDS . " 

300  PRINT  ' * "  EACH  £  REMAINS  ON 
THE  SCREEN  FOR  R  SHORT  PERIOD 
BEFORE  CONVERTING  INTO  R 

$  WHICH  KILLS  IF  EATEN.  THE  5NAK 
E  ALSO  DIES  IF  IT  BITES  ITSELF 

. " PRESS  'Y'  TO  START  THE  GAME 
OR  -  N  -  TO  STOP  *' 

310  IF  INKEY $=" "  THEN  GO  TO  31© 

320  IF  INKEY $ « "Y"  THEN  GO  TO  7 

34.0  IF  INKEY$="N"  THEN  STOP 

350  GO  TO  310 

A©0  REH  CHRS  GENERATOR 

4-10  FOR  1=0  TO  7 

4-20  READ  N 

4-3©  POKE  USR  "A"  +1,  N 
4-4-0  NEXT  I 


<5©  DATA  BIN  11100111, BIN  10100 
101, BIN  11111111, BIN  001©01©0, BX 
N  00100100, SIN  11111111, BIN  1010 
©I©!  ,ito  111001H 

^^y^^UMUSIC  DATA  t HISSING  SID? 


7  ^  12 9^  “  1  ^  *1  ^ 
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STARS  AND  STRIPES 

Despite  what  you  have  first  thought  when  you  saw  the  title,  this 
program  does  not  draw  an  American  Flag.  Instead,  it  plays  an 
elaborate,  and  most  colourful,  version  of  Noughts  and 
Crosses.  Once  you’ve  played  a  few  rounds  against  the  program 
as  it  is,  you  can  modify  it  to  play  against  itself,  which  is  fun  tc 
watch.  To  make  it  an  ‘auto-Stars  and  Stripes’,  change  line  80  sc 
it  reads  as  follows: 

6@  i_ET  B$=£TR$  C  iNTT  {RHDiQi  4-13 


Here  is  the  main  listing,  in  which  you  play  against  tht 
computer: 


10  REM  5TRR5  RND  STRIPE 

lO  P.ftDOER  £> 

13  RESTORE  54-S:  GO  *  SUB 
IS  PRINT  P.T  i,7;  IN:. 

XGHT  1;  FLRSH  1;  " 

g  ( 7  ■ 

2©  DIM  R$(3..S)  :  DIM  £3 
C  (  e>  \ 

3©  RESTORE  .  LET  G=©.-  PBR  B=I 

TO  3:  BEEP  .3S3,2*E:  REfiD 
XF  C-  iBI  =0  THE?-!  LET  S=S-4I 

32  NEXT  B 

33  JP  G=©  THEN  i_ET  E=2-  GD  TO 
115 
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4-0  PRINT  ftT  5,7;  :  FOR  D=1  TO  3 
4-5  XF  CfDJ  =S  THEN  PRINT  INK  4-; 


BRIGtfT  X; 


M  K  *= 


FLRSH 


-  rv  -  s=-t  c^H 


*  II  II  . 

V  M 


5©  XF  CCDJ  =1  THEM  PRINT  INK  ©; 

BRIGHT  x;"  ^  :  REM  GRAPHIC  R 

dd  ir  L  1 10  f  j  r  rv^h;  j.5vK  ^  ; 

^  1  *r  '>k  *r  *  -  s»j=rf*  ncflOKTr  R 

SO  XF  D=3  OR  D-S  THEN  PRINT  'T 

S3  7;  BRIGHT  X;  **  **;  BRIG 


HT  0; 

£■  +  0 

B  7; 

7B 

Mi  ^ 

F\t 

*  » 

XT  D 

75 

4t1ILW 

KC 

TURN 

76 

i1 

W-“ 

SUB 

80 

SL£ 

1  6  $•  ~ 

‘5'1 

THEM 

30  LET  E  =UP.L  5$ .-  XF  C  £E3  <  >G  TH 
EH  SO  TO  SO 
100  LET  C  £E>  =2 
110  LET  F=C-BDE  ft$  sE3  -SS 
115  XF  CODE  R$ CE3 =32  THEN  PRINT 
'  '  'TRB  7;  "IT'S  fi  DSftU"  ,  :  FOR  G 

=1  TO  50  r  BEEP  . 003 . G r  NEXT  G r  R 


UM 


12©  XF  CCF5 =©  THEN  GO  TO  14® 
130  LET  R$  £ E3  =flS  CEJ  <2  TO  5:  GO 
TO  11© 

14-0  LET  C  (F3  -1 


X4~S  SO 

SUB 

150  XF 

C  (  13 

■WWHi  J.  Y 

■  Tr  *  -V 

RND  C  £23  =C  £33 

PfHD  D  C  X  } 

<  >  0 

THEN 

GO  TO  SBS-j-iefC 

”l60  XF 

C  (4.) 

=C  £53 

RND  C  £53=0(63 

RW£>  C  C 

< 

THEN 

G  O  TO  50  ©  4 1  EHr  C 

4-> 

170  XF 

C  f  "7  > 

=C  £  S3 

ouh  r'  f  j=> —  r*  rai 

-^— p-  h. 

*“  >  j?  f 

*  ■F’T  -M  ■*  i2 

73  ' 

-  « 

ta-r  ^bll- 

~rTc~rT  i— i-o — 

*  1  J  J—  4  i 

30  TO  500  *r  18  ^C 

|SB  ;,xf 

C  £  1 3 

-c  (B) 

RNI>  C  (5)  sC 

Rl$i>  £-C  £  13 

<  >B 

THEN 

^  R  ■“  o— i  _  ,^a  —jr  _ _ .w. 

t  1  ““i  ■- ■*.  \ 

m 


100  IF  0.(3)  a=c  (53  RND  C  (53  =C  £73 
PND  C£3.V<>0  THEN  SO  TO  SS@4iSfC  i 
33 

200  XF  C  £13  =C  £43  RND  C  £4-3  =C  £73 
PND  C  £13  0©  THEN  GO  TO  5SB+1B*C  t 


21©  XF  C  £23  ==C  £53  RND  O  £53  =C  £33 
RND  C  £23  <  >0  THEN  GO  TO  50B  +  IB*C ( 

O  1 

Jp. 
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22©  XF  C  (35  =C  (  B }  RHD  C-  (Si  ~C  C9> 
RHD  C-  fS5  <  >0  THEN  GO  TO  ESc+ISiC  ( 
31 

23©  GO  TO  30 
4-G0  ru'R  U  =  1  TO  2 
4-1©  RERD  S$ 

4-2©  FOR  K=©  TO  & 

4-3©  RERD  M 

4-4-©  POKE  USR  S $  TK  ,  M 

4-5©  NEXT  K 

4-00  NEXT  U 

4-70  RETURN 

Si©  PRINT  '  ‘  -  FLRSH  3.;  XNK  S;  F 
RPER  2 ;  TRB  12;  “I  WIN!  FOR  G  = 

-30  TO  50:  BEEP  . BBS , G :  NEXT  G; 


RUN 

52©  PR 1NT  '  ' -  PLASH  1 ;  BRIGHT  1 
.  PRPEh  3:  INK  9 ; TfiE  13; "YOU  U IN 
5  J  “  ,  :  FOR'  G  =  -3©  TO  50:  BEEP  .008 
,  G :  ’ NEXT  G :  RUN 

'  53©  oprra  "i3mJSVT7r~  *  "P*  **  uwverrvx 

”  ,  "OSUUYX"  e  "OSUTUYX"  ,  "5CUUX"  ,  “08 
UXY"  ,  "SGyUYUT"  .  "SGUXU" 


54-0  DATA 
*  550  DRTR 


1  I 


,  73 4-2  ,  28  #  127  , 28  t  4-2 


B  ",36, 73  ..  14  5 , 35 


Or  ~ 


3.4* 


rui?r¥i?DC 


Challenge  your  computer  to  this  traditional  board  game  of 
skill.  In  this  program,  written  by  Graham  Charlton,  you  enter 
your  moves  as  a  letter  and  a  number  of  the  square  you  want  to 
move  from,  then  after  pressing  ENTER,  the  letter  and  number 
of  the  square  you’re  moving  to.  The  entry  must  be  in  the  form 
of  “a2”  or  “d4” 


V-v 


W 


u  j  .JC  4 

-r-  *u*tti**L* 


1 0  0  P  R I  NT  AT  5 , 1 1 ; 
110  FOR  A  =  1  TO  91 

120  PRINT  TfiB  11; 

i  -  «,  j#.  **.  T*  «*.  *  "W 

S  ZgS  i  W  G  “T  r?  P 

NtA  7  H 
RETURN 

FOR  B=1  TO  12 

100©  GO  SUB  10© 
101©  LET  0=3 

1020  FOR  B=1  TO 

1030  LET  C-=B  (BA 


STEP  1 © 
PAPER  1  ;• 


_r£  V*  t  *rl 
- 


c£t?e 


-T 


*  i  A 

^ 


i-?  (  L- {  )  M  Q 


r-** 


tv'n 


r* . 

1*  ■  ■  v  ■ 


5  THEN  GO  TO  120© 
1G50  FOR  X  =1  +£•*  (£N$  f CJ 
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1070  IF  AS  (C-fN)  •;  >  "H"  AMD  AS- 
<  > " K “  THEN  GO  TO  1130 


aese  if  r$ic*2*n) 

O  113© 


<  >  "  " 


THEM  GO 


w 

J. 

-i-  *±,  X  ^ 
X 

^  ^  %Z*  \D 
-1  -1  ^ 
w  -i-**** 


LET  H$  CC+2*NJ  =A4  (C-j 
LET  A$  iC)  =”  ” 

LET  A1<C+N)=** 

LET  B(B)=C+2*N 
L  ET  C -C  +2  3-N 


170 

IS© 


0  IF  C  :>  3©  THEN  GO  TO  2SS0 
ISO  GO  5UB  10© 
lb©  LET  0=1 

GO  TO  1050 
J.4.0W  NEXT  X 

IF  0=1  THEN  GO  TO  O0I0 
NEXT  B 

FOR  5=1  TO  12 
LET  C— B £BV 

©  IF*  A*  <C>  -i  >  "C"  AND  A*iO 
”  THEN  GO  TO  220© 

20130 

2©4.0  LET  N=X  IX) 

2050  IF  A$ iC+N) 


1'2V30 

2000 

201© 


’ _ t  1  A  '  » 


mt 


FOR  X=l+2* (fl$ (C) ="C") 


<  > 


#  * 


TO  4- 
THEN  GO  TO 


*  ^  i  rx 

r.  ♦i1 


H^S0 

2070 

*3  i“3t  «■  |“3fc 
i^L  Ti/  Ul 

2030 

iZ  4.  t*1 


LET  Y$=fl$ 

LET  Y$  I'C+N)  =V$  fC5 
LET  Y$KC)="  “ 

FOR  A=i  TO  12 

lEt  d =o  (A' 

211©  If'YS  il)}  ;  :>  "H"  AMD  V^iDO  •:;>"? 
”  THEM  GO  TO  2170 

2120  FOR  2«l+2*ty*(Ws"H"i  TO 
2150  LET  H=X (I) 

214-0  IF  Y$  iD-M)  1  >  "C"  AND  Y$  fD 


4- 

MJk 


-  j* 


*  »  ^  It 


O 


THEN  GO  TO  2150 


Jrir 


THEN  GO 


TO 


215©  IF  Y$  (0-a#Hl* 

NEXT  Z 
NEXT  A 
LET  A$  =Y'$ 

GO  TO  2*320 
222©  NEXT  X 
2230  NEXT  B 

4-0  FOR  5=1  TO  12 
LET  C=B  CB.V 

IF  A$  CO  <  3  "C"  AND  A*MO)  •.'.*>  "O 
THEN  GO  TO  2360 
270  FOR  X=1^2*  l'A$  fC)  ="C")  TO  4- 
2230  LET  N=X  CX.) 

229©  IF  A  $  { C +Nl  <  >  *'  "  THEN  GO  TO 

-2330 


-— ~  T  3*~~t 

a  170 
Hisa 
2190 


225© 

22S0 
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2300  LET  R$  f  C+Nl  =R$i  Cl 
2310  LET  R$  fCl  *"  “ 

2320  LET  StBJaC+N 

2330  IF  C+N>SB  THEM  LET  R$ iC+Ml 


"O" 

^  «k 

W  ^T1" 


33  TO  3000 
2350  NEXT  X 
2350  NEXT  8 

2370  PRINT  RT  17,12; "YOU  UXN" 
S3S0  ST  OP1 

222©  LET  RS  iCl  =  "0" 

30©0  30  SUB  100 
3010  INPUT  "FPOH  ■?  ";G$ 

3015  IF  G$="0"  THEN  STOP 
3020  INPUT  "TO  ?  " ; H$ 

30-25  IF  LEN  G$o2  OR  LEN  H&-:  ;.2 
HEN  GO  TO  3010 
3030  LET  R=2;  LET  B  =3 ;  LET 
LET  O — 5 

304-0  LET  E=3:  LET  F  =7 „•  LET  G=3.- 
LET  H  sQ 

5050  LET  I=30-10*VRL  G$  f21  ■■►URL  S 


■L 


>  =4- 


*  ill 


LET  U =30 

-10* URL 

h^  tas 

*  URL 

K.  1  T 

3070 

-T-  tTL  ;-“A 

IF  1:12 

OP  I  .■>  S3 

THEN 

GO 

TO 

vJ-  _L  X.1 

3030 

IF  U<12 

OP  U  >  33 

THEN 

GO 

TO 

;js©  1  © 

3000  IF  R$  t  XI  •:  >  "H"  RN£V  Rqt  fXl  >  "N 
”  THEN  GO  TO  3010 

5100  IF  ft$<v.U  O'*  "  THEN  GO  TO  30 


■w* 


3110  LET 

3120  FOP  R=1  TO  12 

3130  IF  C  ffil>  =1  THEN  LET  O  i'Rl  =U 

314-0  NEXT  R 

3150  IF  J  <20  THEN  LET  R*  i‘Ul  =  "K" 
3 1 50  LET  R$ill="  " 

3170  IF  RSS  il-U)  <  12  THB*r  SO  TO 

1000 


■t — *  ^ 


LET  R$  i  SI+J1  ..'21  = 

3120  GO  SUB  100  . _ 

3200  INPUT  "CRN  YOU  UUHP  RGRXN  '? 


3220  IF  Z&  ill  =''Y 
3 

:^2S0  GO  TO  1010 


tt 


THEN  GO  TO  301 
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5«"V- 


4.000  LET 

s  7  cmcmcwcm?  smcmcmcmc.  s  s 

445i  _____ 

rittabcde  fgn»":  REM  BbcP€r?G& 
sust  be  ir*  tower  case 

4.010  DIM  B  f  isi  :  DIM  C  il2.V  .•  DIM  X 

i  4. J 

4.0S-©  FOR  8=1  TO  IS 
4.030  RERD  R 
4-04-0  LET  B  (B->  =R 
4.050  LET  C  CEO  =IS1  HR 


4060 

4*t‘O0 

4.000 

4.100 

4-110 

41^0 

4-130 


NEXT  B 

FOR  X=i  TO  4- 
RERD  R 
LET  X (X) -ft 
NEXT  X 

BORDER  0:  PAPER  S;  OLE 
INPUT  "DO  YOU  URNT  TO  GO  FI 

IF'Zitl) ="V"  THEN  OO  TO  3O0 


4.14.0  GO  TO  100© 

BO©®  DRTR  28  ,  S4-  ,  ££  ,  £6 ,33 , 37 , 3£  ,  3 

5,19,15,17,13 

501©  DRTR  -11,-9,9,11 


STELLAR  PIRATE 

In  this  program,  by  Paul  Holmes,  you  are  faced  with  a  great 
collection  of  user-defined  graphics,  as  follows: 

.  .  .  Graph i  c  'j»  •* 

.  .  .  Graph i  c  "p  •' 

.  .  .  Graphi c  -a  " 

* . .  Graphi c  ‘  b - 
. «  .  Graphi  c  •’ 

We’re  not  going  to  tell  you  how  to  play  this  game,  nor  how  to 
win  it,  as  we’re  sure  you’ll  enjoy  working  this  out  for  yourself. 
As  a  hint  to  help  you,  the  keys  you  need  to  press  to  get  the 
program  to  work  are  “5”,  “8”  and  “1”.  Go  to  it,  Stellar 
Pirate. 
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5  PRPER  0:  BORDER  0;  Ci_  S 

6  FDR  i =2  TO  2®0 

7  PL. DT  INK  iRNI>*7  +  2A  ;  fRNDi2SS 
>  ..  (RNDJ17SJ 

S  NEXT  i 

9  INK  7 

2©  DRTfi  00022000,  SIN  0 

001100© #BIN  00100200 ,SXN  0021220 
©  f  BIN  ©020O200  ,BXN  00022000  ,-BIN 
©0012000, SXN  0002200© 

2©  DRTR  "b",BIN  ©2022020 , BIN  2 
2221211, B  IN  22022022, SIN  2202202 
2, BIN  12022022, BIN  22021022, BIN 
2 1200112, BIN  20022002 

30  DRTR  **p"  , BIN  002220S0,SXN  0 
222110B, BIN  02020200, BIN  2202022 
B , BIN  21111220, BIN  22222220, BIN 
12012020, SIN  20020020 

4.0  DRTR  **&",©  ,©,BXN  0001 2 000, S 
IN  00012000, SIN  00022000, BIN  000 
2 IBB©, BIN  ©02002 00, BIN  0020020© 
50  DRTfl  **S~, 0,0, 0,0, 0,0, BIN  02 
22120©, BIN  22020220 

S©  FOR  J -1  TO  5;  RERD  3$ 

70  FOR  i =0  TO  7 
S©  RERD  a;  POKE  U5R  a$*i,a 
9©  NEXT  i  .*  NEXT  J 
35  LET  X  =20.*  LET  S  =0 
2©0  PfiUSE  30© 

23©  LET  P =© 

24-0  LET  £.aS+p 

IB©  PRINT  RT  ©,0;  INK  1;  BRIGHT 

2;  “SCORE  ** ;  FLRSH  2; 6*20 

17©  LET  P =0 

IS©  LET  n =29 

19©  LET  y  =29 

20©  LET  C  =© 

SI©  PRINT  RT  20,x;M  **;ST  2  9 ,  X  ;  *' 

m 


SS©  IF  INKEY*  =  '*5”  RND  X  >0  THEN 


j  ^  ^  «.  V*  —2. 

S3©  IF  INKEV$«**B**  RN&  aril  THEN 
LET  X=X+1 

24.0  PRINT  RT  S®  ,  X  }  RT  29, Xv  " 


25©  PRINT  RT  " 

SS©  IF  RMI> :>  ,S5  THEN  LET  p  =f»4lNT 


(  RND  ■J-3 -2  > 

265  IF  n=®  THEN  LET  D  =2 .  IF  n,*3 
2  THEN  LET  n  =3© 

27©  LET  p  sp^l 
29©  PRINT  RT  P ,n } 

295  IF  n  =X  RbJO  {>=£8  OR  P  =29  OR 
o  =1S)  THEN  GO  TO  S10 


1 58  GETTING  STARTED  ON  YOUR  ZX  SPECTRUM 

FOLLOW  ME 

In  this  game,  you  have  to  duplicate  the  colour  and  tone  pattern 
generated  by  the  computer.  There  is  a  catch.  Af  first,  you  will 
have  only  one  sound/colour  combination  to  remember.  Then 
the  computer  will  add  a  new  combination  to  the  first  one,  and 
play  both.  You  will  have  to  repeat  both.  Then  the  sequence  will 
become  three  sound/colour  combinations  long,  and  you  have 
to  repeat  all  three... and  so  on. 


You  copy  the  computer’s  sequence  by  using  the  keys  numbered 
1  to  4.  There  is  a  high  score  feature. 


10  LET  h  =0 
20  PAPER  0 
38  INK  7 
4-0  BORE»£R 
5®  CL  5 

DhTh  2  .■  4  .*  5  ; 
70  RfiNPOMIZE 
80  RESTORE 
9®  OL5 

^  00  LET?"  = 

«m»  Ip**  #**■  pi  m  -J- 

110  LET  £  =0 
120  L.ET  d  =100 
138  LET  it  g?= ' 
280  PRINT  s  $; 


«  » . 
—  <-*  , 


ON  ” 

210  PRINT  RT  3,0, 

",;s;TRB  is;  INK  2;  “Hi  -score 
228  PRINT  INK  4-'i“ 


INK  “SIH 


INK  5; "Score 


24-0.  PAUSE  d 

258  LET  fl$=a$fCHR$  CINT  t'RNf>*4-.i 

4lj 

255  FOR  t=l  TO  LEN  a* 

2SO  FOR  3=1  TO  CODE  af 
''**0  READ  b 
NEXT  a 


285  RESTORE 

220  KH INT  AT  11-8 INK  bi  "BB 


380  HHim  ink  b;  AT  15,  ( CODE  fajf 
it)}  ~1>  *5;  CODE  a$f  t>  ^ 

^818  BEEP  d/100,  i'OO&E  f  t}  — 1>  *-1 

*~338  PRINT  AT  11,8; 
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335  PRINT  ST  X 5, 

1  »F,  '  “  *■  J 

34-3  NEXT  t 
350  RESTORE 
36®  FOR  a=i  TO  4- 
370  PRINT  RT  15, 
3t?0  RERD  fc* 

350  PRINT  HT  16, 


i CODE  tas  {  t  J  .i  — t 

fa — 1)  56;  a 
fa-15  *&;  INK  b; 


4-0@  NEXT  a 

4-10  RESTORE 

4-15  FOR  t  =JL  TO  LEM  a« 

420  FOR  a  =1  TO  da-3 
4.30  LET  i  *=XNKEY* 

4-4-©  IF  CODE  i  $  >4-3  RN&  CODE 
3  THEN  GO  TO  55® 

4.50  NEXT  a 

4-50  LET  ffiS=a$f2  TO  ) 

4-  65  INK  6 
4.70  PLOT  219,36 
43©  DR RU  36,-36 
4-90  SEEP  ,2,0 
500  PLOT  255,36 
518  DRRU  -36,-36 
515  INK  7 
520  SEEP  *4-,  —10 
525  PROSE  d 


535  IF  THEN  GO  TO  255 

54-0  GO  TO  64-0 

550  IF  URL  i$oCffi>E  a$iti  THEN 
560  BEEP  -I, CURL 

555  IF  INKEYSo""  THEM  GO  TO  56 


WWr 
•m  g 


u 


70 

F~ . 

610 

520 

630 

640 

65© 

560 

570 

CvS© 

700 
to 
10 


NEXT  t 
CLS 

LET  S=SfI 

d  =d — S  /E 


IF  d  <0  THEN  LET  d=0 
IF  h  <5-  THEN  LET  b  =S 
GO  TO  200 
FOR  3=1  TO  20 
BEEP  ,01,16 
BEEP  -01,22 

nexT  a 

PRINT  RT  5,0; "SCO re  “ ; s 
print  •  '  f  "Hi  —score  ;b 
PRINT  RT  17 , ©; "Pf ess  any 
play  a  g a i n “ 

IF  INKEY  *=** 

GO  TO  60 


Ke 


"HEN  GO  TO  710 
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ECOLOGICAL  DISASTER 

Here’s  your  chance  to  make  decisions  of  national  importance. 
The  program  explains  the  starting  scenario. 

YOU  ARE  THE  PRESIDENT'S 
RDUISOR  ON  NATURAL  RESOURCES.. 
RND  PRRT  OP  YOUR 
JOB  IS  TO  STOCK  R  NEU  LAKE  IN 
MICHIGAN  UTTH  FISH  RND  EELS... 

THE  ONLY  CRTCH  IS  THRT  THE  EELS 
RND  THE  FISH  RRE  ENEMIES... 

YOU  MUST  SELECT  STARTING 
NUMBERS  OF  FISH  RND  EELS  WHICH 
WILL  ENSURE  THE  LONGEST  POSSIBLE 
SURUIUAL  OF  THE  LAKE 

PRESS  ENTER  WHEN  YOU ' RE  RERDY . . 

And  this  is  the  kind  of  feedback  you  get  while  it  is  running: 

REPORT  TO  THE  PRESIDENT 
RT  THE  END  OF  WEEK  I 


220  FISH 


8©  EELS 


See  if  you  can  get  the  lake  to  survive  longer  than  10  weeks. 

1©  REM  ECOLOGICAL  DISASTER 
15  LET  RAH  =J?ND ;  LET  BE  ST  WEEK  =© 
:  BORDER  0;  PAPER  7:  BRIGHT  1:  C 
LS  ;  BE-EJ* :  .g  2 

2©  PRINT  ffiB  3; "YOU  RRE  THE  PR 
ESIDENT  'S'* 

_  PRINT  ’*  ADUlSOR  ON  NATURAL 

^g^URCES  -  -  **v  TRB  4-;  "RND  PRRT  OF 


CHAPTER  FIFTEEN  1 6 1 

4-0  PRINT  "UOB  XS  TO  STOCK  R  NE 
U  LfiKE  XN" 

50  PRINT  "MICHIGAN  UXTH  FISH  R 
ND  EELS  .  .  ,  ** 

SO  PRINT 

_ 70  PRINT  “THE  ONLY  CRTCH  XS  TH 

80  PR  XNT  "  AND  THE  FISH  ARE  E 
HEMIES. - . “ 

100  PRINT  TAB  3; "YOU  MUST  SELEC 
T  STRRTXNG** 

110  PRINT  “  NUMBERS  OF  FISH  AND 
EELS  UHICH" 

120  PRINT  "UILL  ENSURE  THE  LONG 
EST  POSSIBLE1* 

13©  PRINT  TAB  5; "SURUIUAL  OF  TH 
E  LAKE" 

14-0  PRINT 

IS©  PRINT  "PRESS  FLASH  1; ”EN 

TER";  FLASH  ©;  “  WHEN  YOU'RE  RERO 

*  ** 

IS©  INPUT  R$:  C-LS 

170  INPUT  “ENTER  THE  STRRTXNG  N 
UMBER  OF  EELS  (LESS  THAN  1003 

*■  IT1*  ^ 

,  X___ 

180  IF  EELS >100  OR  EELS  < 1  THEN 
GO  TO  1*70 

190  INPUT  “ENTER  THE  STRRTXNG  N 
UMBER  OF  FISH  CLJESS  THAN  100) 

#  r  JL  O  i  I 

200  LET  FISH=FISH/3:  LET  WEEK  =0 
210  POR  Q  =  — 30  TO  30 

220  PRINT  £3T  XNK  2 

NUERSE  XNT  (RND+. 5) ; “THE  LRKE  IS 
EUOLUING" 

230  BEEP  ,©08.G;  NEXT  G 
235  LET  WEEK = WEEK +1 :  CLS 
24-0  PRINT  RT  ©,©;  FLRSH  1*  BRIG 

HT  l;  INK  S;  PRPER  2;  ** REPORT  TO 
THE  PRESIDENT" ,  "  RT  THE  EN£>  OF  W 
EEK  ** ;  WEEK  * 

258  LET  EELS=EELS+ C  C STEELS -EELS 
S-FISH/3)  FRAN) 

26©  LET  FI5H=FISH+  (  i  4- *F  ISH-FISH 
S-EEL.S)  *0-013 

2-70  PRINT  '  1  '  'TAB  7;  INK  RNDSSj 

INT  (FISH)  iUFISH>0)  ;  {*8  F ISH " 

280  PRINT  ' ' ' 'TAB  7;  INK  RNDiS; 

XNT  ( EEL  S )  * (EELS > 0 X ;  “ ©  EELS" 

29®  XF  EELS <2  OR  FISH  <2  THEN  CL 
S  :  GO  TO  310 
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300  SO  TO  210 

310  IF  UEEK >  BESTUEEK  THEN  LET  B 
ESTUEEK =UEEK 
315  FOR  G=1  TO  4-0 

320  PRINT  AT  RNDS-19 *  RNDJI16;  FLA 
SH  1.;  OUER  1;  INK  RNDi6;  PAPER  R 
ND*6;  "ECDLOSICfiL" * "DISASTER" 

330  BORDER  RNDS6:  BEEP  0 . 008 * 50 
— G 

340  ME XT  G 
CL.S 

360  BORDER  7 :  PAPER  7:  BRIGHT  1 
r  CLS 
37©  INK  © 

3S©  PRINT  . "It 's  all  over  n 

oh  .  natural** 

39©  PRINT  ''resources  advisor,,  s 
i  r  *  *' 

4-0©  print  "'•'■■Your  lake  stayed 
alive  for",UEEK; ”  weeks*  so  your 
best  to  date’**  "is  ** ;  BESTUEEK; 

weeks . ” 

41©  FOR  G=-50  TO  ©  STEP  »5 

4.20  BEEP  .  ©1  *  G 

4-30  NEXT  G 

4-4-0  CLS  :  GO  TO  2© 


CASUALTY 

In  this  program  written  by  Paul  Toland,  you  are  on  a  minefield 
which  is  full  of  casualties.  You  have  to  push  a  wheelchair 
around  the  minefield,  avoiding  the  mines  and  electrified  fence, 
to  collect  each  casualty  and  bring  him  or  her  to  the  hospital 
(shown  as  a  flashing  +).  The  wheelchair  can  only  carry  one 
casualty  at  a  time.  Note  that  the  letters  in  quote  marks  in  line 
100, 160  and  500  must  be  entered  into  the  program  after  getting 
into  graphics  mode.  These  are  turned  into  user-defined 
graphics. 

2©  GO  SUB  4.00 
22  GO  TO  61© 

£££>  fi> 

3%  PAPER  6:  BORDER  6:  CLS 
40  INK  2 

S©  PLOT  4*4.*  ORAL  247,0 
60  DRAU  @*167:  DRAW  -247*0 
70  DRAU  0  *  —167 
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80  INK  0 

SO  FOR  Iasi  TO  20 
10©  PRINT  RT  RND*17~F2,RND*2©  +  1; 
"D" 

110  NEXT  X 

115  INK  1 

120  FOR  1=1  TO  2© 

130  LET  X=INT  fRND3-28.>  -fl 
14-0  LET  Y  =  INT  tRN0*173 +2 
150  XF  RTTR  CY,X)  <  >54-  THEN  GO  T 
O  13© 

18©  PRINT  RT  Y,.X;**C** 

170  NEXT  X 

190  INK  3:  OUER  © 

20©  LET  CRR=0 
210  LET  RET  =0 
22©  LET  X  =18 :  LET  Y=1 
222  LET  R=0:  LET  D=0 
238  PRINT  RT  Y.X;"  “ 

235  PRINT  RT  1, 16;  FLRSH  1;  INK 

3  ;  *■  +*■ 

237  LET  XJS=XNXEY‘S 

24.0  IF  I5  =  ,‘5*’  THEN  LET  R  =  -l;  L5 
T  D  =0 

24-5  XF  X$=”B"  THEN  LET  R=l:  LET 
D=© 

250  IF  I$  =  ”6*‘  THEN  LET  R=© :  LET 
D  =  1 

255  IF  I$="7“  THEN  LET  R=0 :  LET 

257  LET  XbX+B:  LET  Y=Y+D 
28©  LET  CHafiTTft  fY,X3 
265  PRINT  RT  Y,X;CHR$  { 14.4.+CRR J 
270  IF  CH=4-S  THEN  GO  TO  50© 

28©  IF  OH =5©  THEN  GO  TO  520 

220  XF  CH  =4-9  RND  CRR  THEN  GO  TO 
54.0 

300  IF  CH  — 4-2  THEN  LET  CBR=1 

310  IF  OH  =  179  RND  CRR  THEN  LET 

CRR  =0 :  BEEP  .2,5:  LET  RET  =RET  + 1 : 
XF  RET *2©  THEN  GO  TO  580 
32©  PRUSE  DELRY 
33©  GO  TO  23© 

4.0©  RERD  R$:  IF  R$=**X**  THEN  RET 
URN 

*10  FOR  X=0  TO  7 

4-20  RERD  N:  POKE  USR  B$+X,N 

4.3®  NEXT  X 

4-4.0  GO  TO  4-00 

4.50  DRTR  **  R  ,  S  IN  11000000,  BIN  1 
1000000, BIN  10010000, BIN  1111000 
S , BIN  10010000, BIN  10010000, BIN 
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10011110, BIN  11001100 
4-00  DRTR  "B”  ,  BIN  1 1000000 ,  BIN  1 
1000000 ,  BIN  10011100,  BIN  111112S 
©,BXN  1001100O, BIN  10011111, BXN 
10O11111, B IN  11001101 

4.70  DRTR  "C"  ,0,0_^0, 0,©,  BIN  1101 
0001, BXN  11010001, BIN  "11111111 
48@  DflTfi  "D" ,0,0,0, BXN  0011110© 
, BXN  01010010, SIN  11111111, BXN  © 
0111100,0 
4.90  DfiTR  "Z“ 

500  PRINT  RT  Y,X;  OUER  1;  FLRSH 
1 '  ■  BEEP  3  —30 

51©  PRINT  RTW  £  ,  1 ;  **' YOU  HIT  R  MIN 
=r »>  .  on  ~rn  caa 

52©  PRINT  RT  1,4-;  FLRSH  1;  INK 
2,'  "ZZ2222Z ZZZPRPRPPPPPP  ** 

525  FOR  I =-30  TO  0  STEP  3 
530  BEEP  .  2  ,  X:  BEEP  . ©2 , X* 10 
535  NEXT  I:  GO  TO  B©0 
54.0  PRINT  RT  1,2;  “THE  WHEELCHJ9I 
R  IS  OUER -LORDED" :  GO  TO  600 
5B0  BEEP  1,5.-  BEEP  3,B 
570  PRINT  "YOU  DONE  XT f  *  ?  ~ 

500  XNK  © 

60S  PRXNT  "  YOU  RESCUED  " ; RET; " 
OUT  OF  THE  20" 

610  PRXNT  ' ' "DDDDDDDDDHXNE  FXEL 
DDDDDDDDDDDDDD  ** 

S20  PRINT  ' "THERE  RRE  20  CASUAL 
TIES  LYING  IN  THE  MINEFIELD ,  X 
T  IS  YOUR  JCBTO  BRING  THEN  TO  TH 
E  HOSPITRL  IN  R  WHEEL CHRIR  ONE 
RT  R  TIME.  THE  FENCE  AROUND  TH 
H  FIELD  IS  ELECTRIFIED  SO  RUOI 
D  CGNTRCT  W ITH  IT . " 

©30  INPUT  "CHOOSE  R  SKILL  LEVEL 
0  TO”  5  CSssTHE  EASIEST)  '* ;  DEL 

RY 

64.0  IF  DELAY  <0  OR  DELAY  >  S  THEN 
GO  TO  630 

©5©  LET  DELRY»DELRY*2+1 
©60  RESTORE  660 
67©  FOR  I»1  TO  16 
©S©  RERD  N;  BEEP  .2,N 
©9©  NEXT  I 
-  70©  GO  TO  25 

710  DRTR  3, 1,0, 1,0, 1,0, -2, -2,0, 
-2,0,  -2,6,  -2,  -4. 
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APPENDIX: 
USING  MATHS 


Here  is  a  summary  of  the  mathematical  symbols  on  your 
computer. 


Usual  symbol: 

Computer  symbol: 

+  (plus) 

■f 

—  (minus) 

— 

x(multiply) 

* 

-*■  (divide) 
mn(raise  to 

/ 

power) 

mfn 

The  mathematical  functions  are: 

Computer  word: 

Meaning: 

ASN 

ARCSINE 

ACS 

ARCCOSINE 

ATN 

ARCTANGENT 

SIN 

SINE 

COS 

COSINE 

TAN 

TANGENT 

INT 

Reduce  to  next  lowest  whole  number 

SGN 

Sign  (returns  —  1  if  negative,  0  is 
zero,  1  if  positive) 

ABS 

Returns  number  without  its  sign  (so 
ABS -5  is  5) 

SQR 

Square  root 
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LN 

Natural  log 

EXP 

(see  valentino) 

BIN 

Number  which  follows  is  to  be  treated 
as  binary 

PI 

The  constant  3.14.... 

VAL 

Returns  the  numerical  value  of  a 
string 

DEF  FN 

Defines  a  function,  to  be  called  up 
with  FN 

GETTING  STARTED  ON  YOUR  SPECTRUM 

is  one  of  a  series  designed  by  experts  and  put 
together  by  actual  users  which  will  allow  the 
first-time  buyers  of  a  personal  computer  to  make 
effective,  creative  and  constructive  use  of  their 
new  acquisition  with  the  minimum  of  time- 
wasting  false  starts  and  the  maximum  of 
personal  satisfaction  and  fulfilment.  Free  of 
jargon,  this  is  a  simple  to  read,  easy  to  use,  step 
by  step  guide  to  proficiency  in  the  use  of  the 
SPECTRUM  which  will  enable  readers  to  obtain 
the  maximum  of  results  from  their  machine  in  the 

least  possible  time. 
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